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A method is presented for designing axial-flow compressor blading from blade elements defined 
on cones which pass through the blade-edge streamline locations. Each blade-element center- 
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elements can be leaned in Doth the axial and tangential directions. The output of the computer 
program gives coordinates for fabrication and properties for aeroelastic analysis for planar 
blade sections. These coordinates and properties are obtained by interpolation across conical 
blade elements. The program is structured to be coupled with an aerodynamic design program. 
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COMPUTER PROGRAM FOR DEFINITION OF TRANSONIC 
AXIAL-FLOW COMPRESSOR BLADE ROWS 
by James E. Crouse 
Lewis Research Center 

SUMMARY 

A method is presented for designing axial-flow compressor blading from blade ele- 
ments defined on cones which pass through the blade-edge streamline locations. A 
blade-element centerline is composed of two segments which are tangent to each other. 
The centerline and surfaces of each segment have constant change of mean-camber -line 
angle with path distance. The blade elements are stacked along a line which can be 
leaned in both the axial and tangential directions. The output of the computer program 
gives coordinates for fabrication and properties for aeroelastic analysis for planar blade 
sections. These coordinates and properties are defined by interpolation across conical 
blade elements to the planes perpendicular to a radial line through the hub stacking point. 
The output blade-section properties are area, center-of-area location, stacking-peint 
location, maximum and minimum moments of inertia along with their orientation, torsion 
constant, and twist stiffness. 

The computer program uses velocity diagrams that have been established from some 
aerodynamic design process. The velocity diagrams are applicable to some fixed lo- 
cations near the blade edges. Blade-element angles are obtained from the velocity dia- 
grams ( 1) by correcting the velocity diagrams from the fixed locations to the edges of the 
blade as stacking adjustments are made, (2) by determining and applying incidence and 
deviation angles at the edges of the blade with one of several common methods chosen 
with optional controls, and (3) by correcting the inlet and outlet blade-edge angles on a 
streamline of revolution to the blade-element layout cone with the use of appropriate di- 
rection derivatives. The iterative stacking adjustments are made by translating the 
blade elements along the cone so that the center of area of the associated blade section is 
alined on the stacking axis. 


INTRODUCTION 


In an axial-flow compressor design method, the general objectiv .s to define hard- 
ware which wil’ give suitable and predictable flow conditions. For subsonic and tran- 
sonic flows, the solidity of blade elements is generally low enough so that blade elements 
at most locations in a blade row can more reasonably be treated as a cascade of airfoils 
rather than channel flow. Also, since the axial dimension in axial-flow compressor 
stages is usually short with respect to blade height, there is reasonable freedom in the 
selection of blade-element shapes which, when stacked, will define a structurally sound 
blade. Where possible, those blade-elem* ' shapes which have demonstrated good per- 
formance with enough experimental data to \ *-ld useful parametric correlations are usu- 
ally selected. One shape commonly used in present-day aircraft compressors is some 
variation of the circular-arc type of blade element. 

Most compressor design systems utilize experimental data correlated from similar 
blade shapes in either two-dimensional or three-dimensional flow. In order to have a 
meaningful relation between the correlated data and the design application, the blade- 
element definition properties should be as nearly alike as possibl' It is r ognized, 
for example, that all the blade-element properties of a two-dime> *onal layout cannot be 
preserved when it is applied to compressor streamlines of revolution. So some deci- 
sions must be made as to which properties fundamentally control the data correlations. 
The most desirable properties to preserve are blade -element thickness distribution and 
blade-edge angles along streamlines of the compressor. 

The camber distribution used to achieve the prescribed turning is a property which 
has significant effect on the blade-surface pressure distribution. The camber distribu- 
tion can be simulated in various ways. For example, an element can be laid out directly 
on the surface of revolution, or it can be laid out on a plane or cylinder and then pro- 
jected to the streamline. In reference 1 it was shown that these methods produce varying 
rates of change of blade angle with blade- element centerline -path distance at significant 
streamline slopes. From strictly a geometric point of view, the rate of change of blade 
angle with blade-element centerline-path distance is most directly related to the local 
chordwise rate of aerodynamic loading. So there appears to be some merit in preserving 
the rate of change of blade angle with blade-element centerline-path distance in the flow 
direction. This concept was developed and programmed in reference 1 for the simulation 
of a circular-arc blade element which has a constant rate of change of blade angle with 
blade-element centerline -path distance. The computer program of reference 1 mathe- 
matically describes and then stacks blade elements to define a blade after the blade -edge 
angles are established. 

The coupling of an aerodynamic program with such a blade design program avoids 
iterative computer entries by the designer; but for the design of multistage compressors, 
program coupling places particular premium on speed, reliability, and accuracy. It was 
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apparent that, to use the concepts ot reference 1 in a coupled program, improved mathe- 
matical procedures were desirable. The rework of those concepts, which is described 
in this report, provides major gains inaccuracy, reliability, and speed The computer 
program presented is internally structured for use as a part of a composite compressor 
design program. But, in the form presented, the program is set up to run as a sepa- 
rate entity so that it can be used in conjunction with different aerodynamic design pro- 
grams. Thus, this program is presumed to start with velocity diagrams at fixed loca- 
tions near the edges of the blades. These velocity diagrams are corrected to the edges 
of the blades as the edge locations are defined through the stacking iteration. Incidence - 
and deviation-angle prediction methods are included to establish the blade -element edge 
angles from the velocity diagrams. 


DESCRIPTION OF BLADE DESIGN PROCEDURES 

' The general blade design system can be divided into four rather distinct parts: 

(1) blade-element definition, (2) blade-element stacking, (3) interfacing of the reference 
velocity diagrams to the blade-element edges, and (4) terminal calculations. The first 
three parts are used in an iterative procedure in the computer program to establish the 
blade for the terminal calculations. The iterative loop through these parts occurs be- 
cause the blade- edge locations for the velocity diagrams are known only as accurately as 
the blade elements are stacked. Most of the computer program information of interest 
to the user is given in the section entitled DISCUSSION OF COMPUTER PROGRAM; but 
occasionally, computer subroutines are mentioned in this section when a procedure is 
' the specific function of a subroutine. The following discussion covers the development 
of concepts that are used in the computer program. 


Blade -Element Definition 

It is desired that a blade element lie on the surface of revolution generated by re- 
volving the flow streamline about the compressor axis. For the purposes of blade- 
element definition, this surface is simplified to the cone passing through the intersec- 
tions of the streamline surface with the blade leading and trailing edges. (The conical 
coordinate system for blade-element layout is illustrated in fig. 1. ) Since the difference 
of streamline slope from a blade-row inlet to an outlet is usually relatively low, the 
blade properties along the streamline of revolution will closely approximate those laid 
out on the cone. The advantage of the conic approximation is that a cone is a single 
curved surface which is undistorted when unwrapped for layout. 
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All centerline and surface curves used to lay out a blade element on a cone re 
based on the concept of constant rate of change of local blade ancle with path distance: 
that is. the paths are defined as functions of the k and s shown in figure 1. tAH sym- 
bols are defined in appendix A. ) At any point on one of thes- paths, the angle of the tan- 
gent to the path is defined with respect to the local conic ray to the point. Since k is 
defined with respect to a conic ray, it is convenient to define the blade element in the 
conic coordinate system associated with that layout-cone half-angle <> and leading-edge 

radius r le - General equations for representing these conic coordinates, R and t. as 
functions of k and s were originally developed and presented in reference 1. For 
some ranges of parameters, these functions have computational accuracy problems 
caused by the subtraction of nearly equal numbers. In the following redevelopment of R 
and e as functions of k and s, a different mathematical approach was used to improve 
computational accuracy. 

Conic radius R as a function of k and s . - In the conic coordinate system shown 
in figure 1, the basic prircipie can be expressed as 

( 1 ) 

ds 

where C is a constant. Integration of equation (1) from a reference point to some gen- 
eral point gives 


K - Kq = C(s - Sq) 


( 2 ) 


The differential relation for conic radius is 


dR = cos k ds 


(3) 


Substitution of equation (2) and integration from a reference point to a general point gives 

r - r 0 = 1 cos[k 0 + C(s - s Q )]c ds = - sin[K 0 + C(s - s Q j] | 

C J s„ L C S A 


R - 


*o 


= — (sin k - sin tc 
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0 > 


(4) 


This form of equation has poor accuracy on a computer for small C (i. e. , k — Kq). 
And the computation fails for C equals zero. The following development illustrates how 
this problem can be eliminated: Substitute for C in equation (4) to give 
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which can be rewritten as 


sin x - x 



3! 




v 


j 


(T) 


For the present application, x is (k - Kq)/ 2. Thus, the substitution of equation (7) into 

equation (5) and the subsequent cancellation of the (x - k^) 2 terms yields a form that is 

accurate for small and zero C values (low k - Kq). 

The series form can also be accurate for relatively large (k - k a )/ 2, provided 

8 ^ 

enough series terms are used. If terms through x /9! are used, the first term 

dropped is x^/ll! . If this term is to be kept to 10”** as compared to the first ter"'’ of 

the series (1.0), the limit on (k - Kq)/2 is ±0.9122 radian. That is, (k - « 0 )/2 would be 

limited to 52. 27° and k - k a to 104. 5° to satisfy the criterion. Thus, series terms 
8 ^ 

through x are sufficient for our turbomachinery application. Therefore, the form of 
the equation for R - Rq that is used for computation can be expressed as 


R - Rq = (s 




( 8 ) 


Conic angular coordinate c as a function of k and s . - The differential form for 
the conic angular coordinate is 


R dt = sin k ds 


or 


<k ds 

R 


( 9 ) 
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With the substitution of equation.- v 4 ) tint) i2). equation ( l J) becomes 


siiiTk - - C'.s - s n fjc ds 

a, --i-H 9J. ^ UO) 

RqC " sin t\Q + sin |^q + Cts - Sq) I 

The integral of equation (10) :s of the form 

sin x dx _ x _ a 
a + b sin x b b 



h 


dx 


a + b sin x 


( 11 ) 


where the solution of 



dx 

a + b sin x 


is dependent on the ratio of the constants a and b. The solutions of the latter integral 
and the subsequent treatments of them are given in appendix B because of the complexity 
The computational difficulty encountered with the direct use of equation (11) can be 
explained when our specific variables are substituted into the x/b term. The equation 
for t can be expressed as 


[*0 + 


C(s - sq)] 


= 


S 

s 0 


-a /_ 

b J a + 


dx 
b sin x 


— K - Kr 




dx 

b sin x 


( 12 ) 


From figure 1, it can be seen that e - £q must be very small for large R. However. 
k - Kq usually is not small. With the mathematical form shown in equation (11). « - < 0 
is obtained by subtraction of nearly equal numbers. This, of course, leads to poorer 
accuracy with increasing R and a totally inaccurate value for the degenerate case of a 
cone becoming a cylinder. 

In appendix B, it is shown that the solutions of the integral term in equation (12) all 
reduce to the same infinite but convergent series. Computational accuracy with this 
form is improved because the first term of this series practically cancels the k - Kq 
term in equation (12). The remaining terms are then of the order < - £q. The resulting 
equations for e as developed in appendix B are 
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The number ef terms in the converging XS series used to limit the relative error to a 

_ Q ^ 

maximum of 10 is 


n = 35 x|j + 5 (14) 

For (R - RqK'RqI ^ 0 21, the following series form should be used to calculate tine 
^R Rq - 1 term in equation (13) 
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For the special case of very small C ' , 


f - < q - tan Kq In 


_R_ 

Rn 


(B12) 


Finally, for the special c se of very small |(R - Rq)/Rq|, 


e = 


2(s - s Q ) k + Kq 
— sin 


R + R, 


0 
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In the limiting case of a cone becoming a cylinder, the preceding equation breaks down 
even though there is a physically meaningful path component perpendicular to R. The 
problem can be eliminated by multiplying both sides of equation (B36) by R so that a 
physically meaningful component in the same units as R can be computed directly. 

Thus, in the general subroutine EPSIjON the calculated components are always AR and 
R Ac, where the radius associated with Ae is the conic radius at the terminal end of 
the path (end opposite the path reference or beginning). 

Blade-element layout parameters . - Subroutine CONIC contains the logic for layout 
of a two-segment blade element on a cone. The information for a blade-element layout 
comes from input data and the velocity diagram interfacing calculations. The param- 
eters specifically used for a layout are listed here and illustrated in figures 1 to 3: 

(1) Layout-cone half -angle, a 

(2) Blade-element chord c, where the chord l'ne is tangent to the blade-edge circles 

on the pressure side and the chord length is measured to the outer tangency 
points of the edge circles 

(3) Cylindrical coordinate radius at the most forward axial point on the leading-edge 

circle, r^ e 

(4) Leading-edge blade angle on ‘he cone, 

(5) Trailing-edge blade angle on the cone, « te 

(6) Ratio of leading-edge-circle radius to chord, t^c 

(7) Ratio of trailing-edge-circle radius to chord, t te /c 
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(8) Ratio of maxim uni thickness to chord, t c 

ni' 

(9) Chordwise coordinate location of element centerline transition point as a fraction 

of chord, c^, c 

(10) Chordwise coordinate location o' element centerline maximum-thickness point 

as a fraction of chord, c , c 

nr 

(11) Ratio of first- to second-segment path distance derivatives (d/c ds), C, C ? 

Definition of blade-element centerline . - The objective of the first phase of layout is 

to establish the centerline between the edge-c.rcle centers (figs. 2 and 3). The length 
of a blade element is only known initially through the input chord; so the centerline-path 
length to the transition point and the trailing-edge-circle center are not known. The 
chord could be expressed as a function of R and c , but the angular coordinate t is a 
complicated function of k and s. Thus, there would be no direct way of solving for 
the desired centerline-path length s. So a different approach is required. 

The approach used is to estimate the centerline -path lengths so that s becomes the 
independent variable in the computation of chord. Adjustments are then made in the s 
values to converge the chord and transition-point locations to the specified values. 

Thus, the general procedure, which is in subroutine CONIC, is an iterative predictor- 
corrector method on the first-segment and overall centerline paths to give the input 
transit ^n-point location and chord for the specified « le , * te , and Cj/C 2 . 

The first estimate of the blade-element centerline-path length is essentially that of 
a circular arc laid on the cone to meet the specified end angles in this unwrapped state. 
The path length corrections for succeeding iterations are the transition-point-location 
and chord relative errors, which are simply linear corrections. Since the initial path 
length approximation is a good one, only three or four iterations are required to con- 
verge tiie computed chord to within the relative error tolerance of I0‘ 6 . 

Within the iterative procedure, some specialized computer subprograms are called. 
Subroutine EPSLON gives the conic coordinate changes AR and R At associated wiih 
a path length s and the k angles at the ends of the path. To relate the path distances 
to chordwise component distances, two other subroutines were used. One is TANKAP, 
which calculates the constant -angle path between two points in the conic coordinates R 
and e It is used here for the purpose of establishing the chordwise direction. The 
other subroutine is RPOINT, which finds the intersection of a constant-angle path 
through a point at a given slope with a perpendicular path line through a second point. 

This routine is used here to find the chordwise component of the element transition 
point. 

When the centerline path is established, *he next step is to locate the maximum- 
thickness point on the centerline .vith respect to the transition point (fig. 3). The re- 
lation of Cj^/c with respect to c^/c establishes on which segment the maximum- 
thickness point is located. In addition, it gives an approximation of the path distance 
to the maximum-thickness point. Subroutine RPOINT is used to locate the maximum- 
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thickness point tn an i'.vi utiv • setup Kir.cila’- to * s at used to lo,'..te the transition point, 
converge?' "c t.. the path di/tanc ? which oh'ces ii:fc m J-Mii . 1 M-thk kness point at the -pcc- 
ifieti locution takes about three i orations 

Definition of blade-element surfaces . - The f rs jt.A c be established or. either 
blade-element surface lies at the end of the maximum -thickness path. This point is one- 
hub the element maximum thickness in length along a curved path of constant k angie 
which is normal to the centerline at the maximum -thickness point (see fig. 3). A gen- 
eral thickness path is likewise perpendicular to the blade-element centerline and is a 
curved path of constant k angle. Only at the maximum -thickness point, however, is 
the surface path angle perpendicular to the thickness path. 

At the ends of a blade element, the surface curves are tangent to the end circles. 
The conditions of a k vn surface angle at a fixed point and tangency to a specified side 
of a given fixed circle are sufficient to establish a surface path. In this case, the par- 
ticular path is the one from the surface maximum -thickness point to the end circle of 


the saint segment. 

The surface curve constants are established through an iterative procedure in sub- 
routine SURF. In it, a good first approximation of the surface camber difference from 
that . th centerline is used. In essence, this approximation is a circular -arc repre- 
sentation o', the change of thickness for the path. With a good first approximation of the 
surface curve end the end-circle tanger.cy point is usually located within a 10 rel- 
ative error tolerance in three iterations. 

The transition point on a surface lies on a thickness path through the centerline 
transition point, it is located at the intersection of a surface curve with this thickness 
path Sufficient information exists to calculate the intersection coordinates and surface 
angle by using only the established surface curve through the surface maximum-thickness 
point. This calculation is . ade in subroutine TRAN. Since the segment end-point co- 
ordinates and angles are common to both segments at the transition point, sufficient in- 
formation is then available to establish the surface curve for the other segment. Sub- 
routine SURF is again called for this computation. 

With appropriate signs on the thickness -path directions, these procedures are used 
to calculate both the suction- and pressure- surface curve constants dx/ds for each 
blade element. In each case, it is necessary to begin the surface calculations with the 
segment on which the maximum -thickness point is located to have sufficient definition 
conditions. When the maximum -thickness point is specified to be coincident with the 
transition point, the procedure simplifies because the surface transition-point calcula- 
tion is not needed. 
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Blade-Element Slacking 


Stacking-lmc lean tu balance stress . - The mechanical as well as aerodynamic as- 
pects of design must be considered in blade -element design - and especially in stacking. 
The centrifugal force associated with the rotative speed of turbomachinery imposes 
significant tensile stress. Additional stresses are produced by bending and torsional 
moments with steady flow conditions. When bending and torsional oscillations are also 
considered, the combined stress is often too high for adequate life at some locations in 
turbomachinery blading. It behooves the designer to do what he can to generally lower 
any component of the combined stress to minimize the amount of aerodynamic configura- 
tion compromise for stress reduction in specific applications. 

The one component of stress which can be changed with little or no aerodynamic 
compromise is the component from steady-state bending moments. These bending mo- 
ments have two principal sources. A moment results from the blade forces associated 
with the change of angular momentum of flow acting with a lever arm in the spanwise di- 
rection. This moment, for the most part, is established by the weight flow and the 
change in momentum. So it cannot readily be changed to control bending moments. The 
other bending moment in rotors results from the centrifugal force on each element of 
blade mass acting with a lev*r arm, which is offset from the radial projection of the at- 
tachment or root area. Since the centrifugal forces are high, significant moments occur 
with small offset. Thus, by stacking to control an ''average" centrifugal-force lever 
arm in rotors, it is possible to minimize either the bending moment from centrifugal 
forces or toe combined centrifugal-force and gas bending moment for some operating 
point. 

for moment calculation, it is convenient to have blade forces which are resultant 
components for a blade cross section. If the type of blade cross section selected is de- 
scribed by a constant cylindrical coordinate radius, the centrifugal force per unit of 
mass is constant. So the resultant radial force (centrifugal force) acts at the center of 
area of the blade section with an incremental but constant radial thickness. The mo- 
ments resulting from the blade forces are then established by lever arms associated with 
the location of the blade-section center of area with respect to the reference stacking 
point at the blade-root attachment point. For a blade, the path or line through the refer- 
ence stacking point and the blade-section centers of area is the stacking line. 

Reference locations for blade sections in stacking . - The "stacking line" reference 
point is the center of area of the hub section. In the computer program, it is set by the 
input data. The radial line in the turbomachinery cylindrical coordinate system which 
passes through this stacking-line reference point is called the "stacking ray" for blade- 
section location. Notice that the stacking ray is always radial, while the stacking line 
can be leaned in both the z and 6 directions. 


The axial and tangential coordinate origins of the cylindrical coordinate system are 
on the stackin'; ray. The axial coordinate /. is positive in the turbomachinery through- 
flow direction. The ar.guiar coordinate • is positive in the same dirt Jtion as Re in 
the conic coordinate system used for blade-element definition. 

In the blade-element -definition computer subroutines, the input angles are relative 
values for rotors and absolute values for stators. These blade-element-definition sub- 
routines operate with no distinction between rotors and stators. So the conic coordinate 
t is positive in the same direction as the blade input angles. Since the relative and 
absolute blade angles are defined to be positive in opposite directions from the axial 
reference, the e values for rotors and stators are also positive in opposite directions. 
This difference must be recognized in stacking. For rotor blade elements, 6 decreases 
in the direction of rotation; but for stator blade elements, 6 increases in the direction 
of rotor rotation. 

Blade-section points by interpolation across blade element . - The previously dis- 
cussed blade sections of constant centrifugal force would be defined on cylinders. The 
actual blade sections used in the program are defined on planes perpendicular to the 
stacking ray. There are two reasons for this. First, the annular extent of axial-flow 
compressor blading *s low enough so that the layout part of the cylinder is at most only 
an incremental distance from the tangential plane. Second, the output fabrication co- 
ordinates are desired on planes. So by using planes for stacking alincment too, only 
one type of blade section needs to be found. 

The blade-section planes used for stacking alinement purposes pass through the in- 
tersection points of the blade elements with the stacking line. The blade-section shapes 
on th» e plan are described by interpolation across blade elements. The preparation 
steps for the interpolation are (1) conversion of the conic coordinates, which are nor- 
malized to chord, to actual size; (2) selection of points on the blade-element surfaces 
across which the interpolation will be made; and (3) conversion of the blade-element 
points from their defining conic coordinates to a common coordinate system for all 
blade elements. The coordinate system used is the cylindrical coordinate system with 
the stacking ray as the origin of the 0 and z directions. The coordinate conversions 
to this system are the function of subroutine POINTS. 

The blade-element points used for interpolation are located at the following fractions 
of surface distance from the tangency point of the leading-edge circle to the tangency 
point of the trailing-edge circle: 0.0, 0.05, 0.12, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 

0. 88, 0. 95, and 1. 0. The coordinates of the transition point between segments on each 
surface are also included. The interpolation curve used is a piecewise cubic across 
four blade elements. With the exception of the transition point, each curve fit is through 
points of the same fraction of surface distance. Thus, for each blade-section point, 
separate interpolations are made in the axial and tangential directions. In the interpola- 
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lion process, the tangential coordinate in converted to a Cartesian coordinate on the 
blade -section plane. 

The form of the cubic equation is specialized in the sense that one of the interior 
known points is used as a zero reference for the independent variable. The reason for 
it is that there is much better computational accuracy and much less change of computa- 
tional difficulty when a curve-fit interpolation can be made near the independent variable 
origin. The development of this cubic interpolation equation is shown in appendix C. 

A sequence of four adjacent blade elements is always used for each interpolation. 
Whenever possible the interpolation is between the center two points of the set of four 
for the cubic fit. Near the ends of the blade, it is necessary to interpolate between the 
outermost points and in some cases to extrapolate when the blade section is outside all 
blade elements. The interpolation routine is INTERP. 

Spline fit of blade -section surface points . - A blade-section surface is defined by a 
complete set of 28 interpolated points on a plane normal to the stacking ray. One ad- 
vantage of interpolation in both the z and t> directions is that the end points of a sur- 
face set on the blade-section plane can be considered as the intersections of the surface 
curve with the end circles. To determine good blade-section area and moment values, 
it is necessary to curve fit these points. A spline curve fit was selected for its charac- 
teristic smoothness at the junction points of the piecewise-fit curve through the points. 
The experience has been that the points are indeed smooth enough for a nonwavy spline 
fit of each surface individually. A number of things were done, however, to help ensure 
a good spline fit. A discussion of the concepts follows; but a more detailed discussion, 
along with the development of equations, is given in appendix D. 

A spline fit maintains a linear second derivative between points, not a linear curva- 
ture. As long as the slope of the curve is reasonably low, the difference is not very 
significant. So to maintain nearly the linear relation on curvature too, it is desirable 
to spline curve fit only where slopes are low. To help facilitate this concept, before 
curve fitting, the blade-section coordinates are rotated to an independent axis which is 
parallel to the line which passes through the first and last pressure -surface points. At 
the same time, the blade-section coordinates are translated to the coordinate origin, 
which is at the stacking-iine intersection. The blade-section coordinate systems are il- 
lustrated in figure 4. 

The spline curve fit uses separate cubic equations between adjacent points of a set, 
with the joining condition being continuous slope and second derivative at the points. To 
have sufficient conditions to define a spline, it is necessary to specify a condition at each 
end. The blade elements have constant-curvature paths by definition. So unless the cone 
angle is quite large in magnitude, the blade sections will also have nearly constant cur- 
vature. Thus, it would seem reasonable to use constant curvature m: the end conditions. 
The first and second derivatives were not available in a direct way from che matrix so- 
lution for the spli. coefficients, so a relation was approximated beforehand. To set 
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nearly constant -curvature ends for the spline, a circular-arc fit of the three end points 
in the rotated coordinates was used to establish the ratio of second derivatives between 
the last two increments. This is the function of subroutine ARCS. 

In general, blade elements have a discontinuity in curvature at the surface transi- 
tion point, so an interpolated blade section should have a corresponding discontinuity. 

The allowance for this capability with a spline curve fit requires a modification because 
a general spline has continuous curvature from beginning to end. The modification was 
accomplished by placing the transition point m its proper place in each of the surface 
arrays and then replacing the condition of continuous curvature at that point with a sub- 
stitute condition. The resulting conditions imposed at the transition point are continuous 
slope and a curvature ratio based on a three-point finite difference calculation for each 
side of the transition point. The curvatures are for the adjacent points on either side 
of the transition point. Since the curvatures are relatively constant along a segment in 
the plane section, the situation of unequal distance from the adjacent points to the tran- 
sition point is not of major consequence. The curvature ratio relation across the tran- 
sition point by this technique is 


r y k + l 
y k-l 


1 ♦<*!-!>' 


1 + <r k+ i> 


3/2 


y U-) 


(15) 


The ratio ^ is also the curvature ratio since the slope is the same on both 

sides of the transition point. In actual usage in the program (subroutine SPITG), the 
value C R was smoothed by using the 0. 7 power with the same sign. 

The imposition of this condition in the center of a spline makes the usual tridiagonal 
matrix solution more complicated. The usual Gauss elimination of variables from one 
end of the curve to the other end, followed by backward substitution to get the y" ar- 
ray, is unsatisfactory for a general location of the transition point. A way to avoid most 
of the complication is to use the Gauss elimination from both ends to the transition point. 
Then equation (15) supplies the added condition needed to fix the two y*’ values at the 
transition point. The rest of the y" values can then be calculated by backward substi- 
tution in each direction from the transition point. 

Once the spline coefficients are established, mathematical expressions exist for 
general surface-point definition. Areas and moments for the spline pieces can then be 
determined from the appropriate integrals of the surface equations. A separate integra- 
tion is performed for each surface curve from y = 0 to the curve. The integrations and 
the resulting equations are presented in appendix D. The major part of a blade section's 
areas and moments are accounted for by subtracting all the pressure-surface integrals 
from the suction-surface ones. However, to get accurate section values, the end-circle 
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contribution musi bo included. The specific pieces used in the end region are shown ; n 
figure 5. T!ie twice-covcrt'd areas in the figure are areas cancelled in summation. 

Lines perpendicular to the surfaces through their respective cm: >oints do not nec- 
essarily intersect at a point equidistant from the surface end points. For the purposes 
of describing an end-circle center, surface continuity, which implies the center point 
is equidistant from each of the surface points, is desired, surface tangeney to both sur- 
faces at the end points, however, cannot then be satisfied. The compromise used is an 
equal-angle discrepancy between the end circle and each of the surface curves at the 
surface end points, as noted in figure 5. 

The end adjustment consists of the sector of an end circle plus the two trapezoidal 
shapes which till in the part between the spline segments and the end circle. Area and 
first-moment corrections for a blade-section end are made in subroutine ENDS. The 
routine gives positive numbers for the leading-edge correction but negative numbers for 
the trailing-edge correction. The equations used in the subroutine are developed in ap- 
pendix E. 

Stacking adjustments to blade elements on cone . - The blade-section area and first 
moments obtained from the piecewise summations are used to determine a new center 
of area for the blade section. The location of the center of area from the stacking-line 
intersection of the biade section is a stacking adjustment increment. The actual ad- 
justing is done by translating blade elements on the surface of the cone. So it is neces- 
sary to relate the blade-section adjustment increment on the plane to the blade element 
on the cone. From the definition of a blade section, the blade-section plane and the as- 
sociated blade- element surface are known to intersect the stacking line at a common 
point. The common stacking point simplifies the stacking adjustment relations to the 
application of direction derivatives to suitable components. The geometry associated 
with the stacking shift equations is shown in figure 6. 

On a blade section, Ax and Ay (fig. 6) are directly known from the area and mo- 
ment equations. The axial and normal components are 


Az = Ax cos y - Ay sin y 

( 16 ) 

An = Ax sin y + Ay cos y 

( 17 ) 


The axial blade-element shift is related to the similar blade-section shift in figure 6 
by 


Az - Az e (l - tan a tan X) 


so that 
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( 18 ) 


1 - uin iv tan > 

In the tangential direction, the normal component on the blade section An is applied 
directly to the blade element (r A • in fig. 8). This application is not mathematically 
correct, but it is sufficiently accurate to be used in an iterative adjustment procedure. 
One assumption in the tangential adjustment procedure is that a small distance along the 
tangent in the circumferential direction is the same as the projected distance in the o 
direction on the blade element. A second and less satisfactory assumption is the neglect 
of tangential-stacking-axis lean. With such lean, the blade section will not be tangent 
to the blade element at the stacking point. However, because of high centrifugal force, 
the stacking-axis lean of rotors must be small; so this angular difference is small. 

Thus, for rotors for which good stacking control is desired, the tangential shift assump- 
tions are always good. For stators, the main concern is the convergence of the itera- 
tive procedure for stacking adjustment. The shift increment is in the correct direction 
and is of satisfactory magnitude for at least moderate lean angles. One stator design 
with 45° tip-tangential-stacking-axis lean still had good stacking-axis convergence. 

The stacking adjustments are used in two different ways. First, both the leading - 
and trailing-edge axial and radial coordinates are adjusted. The axial coordinates are 
shitted by Az e , and the radial coordinates by Ar g where 

Ar = Az tan a (19) 

e e 

The second shift application is to the blade-element chordwise and normal component 
distances from the leading-edge-circle center to the stacking point. These component 
distances normalized to chord are maintaineo during iteration. The reason for them is 
that the iteration loop between stacking includes several other blade-angle or stacking- 
axis-lean adjustments which influence the blade-element edge locations. The normal- 
ized chordwise and normal coordinates are useful for the next iteration location of a 
blade element on the cone because these shifts are relatively invariant with the other 
shifts. 

The adjustment procedure is based on the assumption that the shift of a blade ele- 
ment has the dominant effect on its associated blade section. In general, this dominance 
exists to a high degree, and the iterative procedure is highly convergent. However, 
this dominance no longer exists when a blade section crosses the ends of neighboring 
blade elements since, through interpolation, the neighboring blade element controls the 
blade-section end. So when a neighboring blade element intersects a blade section, the 
stacking procedure is nonconvergent. Such a situation can exist if closely spaced 
streamlines with large slopes are used. 
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Since nonconvergence of a possible design case is not desirable, some effort was 
made to extend the range of convergence. The approach was to make the blade-element 
shifts a function of the local and neighboring blade-section shifts. The influence coeffi- 
cients were based on blade-section piecewise area and relative distances to adjacent 
blade elements. For the most part, the effort was unsuccessful and, consequently, it is 
not used in the program. 

Stacking convergence problems can generally be avoided by judicial spacing of the 
blade elements in the design. As long as the ends of blade elements do not extend more 
than approximately one-half the distance to the next blade section, there is good stacking 
convergence. Once the blade is stacked, however, coordinates for closely spaced blade 
sections can be calculated for terminal calculations. 

Balancing of bending moments . - The blade-element stacking procedure is controlled 
in subroutine STACK. One other major function of STACK is the balancing of bending 
momer s. If the balance option is exercised by the specification of a blade material den- 
sity, the steady-state rotor gas bending moments in the axial and tangential directions 
will be balanced by a centrifu -.al -force-on-blade-mass moment which is induced by 
stacking- axm man. (Moments in the meridional plane are illustrated in figure 7. ) In 
the balancing procedure, the blade mass moment is set up as a functional relation of 
blade lean. The equations for this are developed in appendix F. The major moment 
contribution is usually the blade -section center-of-area offset from a radial line. How- 
ever, with a tapered tip the wedge-shaped excess and decrement masses from the tip 
blade section make significant contributions because their centers are relatively much 
farther from the stacking axis. 

The steady-state gas bending moments to be balanced are calculated in subroutine 
GASMNT. The approach used is the change-in-momentum principle. The momentum 
boundaries in the meridional plane are the edge of the blade and the nonattached end of 
the blade (fig. 7j. The state conditions and velocities on the boundaries are drawn from 
the input and interfacing calculation. The moment arm for both the gas-bending and 
blade-mass-centrifugal-lorce moments is referenced to the blade-element midradius 
value r. on the blade attachment end. 


Interfacing to Blade Edges 

Velocity diagram corrections to blade edges . - Input fluid-state properties and ve- 
locities are given for fixed locations near the edges of blade rows. Streamline slope 
and/or streamtube convergence cause flow conditions to change from the input reference 
locations to the blade edges. To maintain t!, desired degree of design control over 
specification of blade-element edge angles, it is necessary to account for the flow 
changes between locations. The two assumptions used for those velocity diagram cor- 
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rections were (1) conservation of angular momentum along a streamline with local slope 
between a reference station and a blade edge and (2) flow continuity from local stream - 
tube convergence. The blade-edge locations are not firmly established until the final 
stacking iteration, so the velocity diagram corrections are made for every iteration. 
Velocity diagrams at the reference locations are used for the first iteration. 

Incidence and deviation angles . - In subroutine BLADE the inlet blade-edge velocity 
diagram is related to the physical blade through an incidence angle, and similarly the 
outlet blade-edge velocity diagram is related to the blade trailing edge through a devia- 
tion angle. The incidence angle can be specified through input options in five different 
ways, and the deviation angle can be specified in four ways. Two of the respective inci- 
dence and deviation options are the two- and three-dimensional values of reference 2. 

The parametric curves in reference 2 that are used for the determination of the inci- 
der ce and deviation values were fit with equations which yield values within at least 
3 percent of those from the curve. The third incidence option is a specified zero inci- 
dence on the suction surface at the edge-circle tangency point. The remaining two inci- 
dence options are tabulated values which can be referenced to either the leading-edge 
centerline angle or the aforementioned suction-surface angle. 

The input incidence angles in some cases can be overriden during iteration by choke- 
margin option considerations. Since the inlet area of the blade-to-blade channel is a 
function of incidence angle, a specified choke margin can sometimes be achieved through 
a reasonable variation of incidence. If the blade-to-blade channel inlet choke margin is 
less than a specified (greater than zero) value, the input incidence angles will be ad- 
justed to a limit of +2. 0° on the suction surface to achieve the specified choke margin. 

The third deviation-angle option uses tabulated values referenced to the trailing - 
edge centerline angle. The remaining deviation-angle option is a modified application of 
Carter's rule 


%<p (20) 

V 5 

where <p is the camber of the blade element which has an exit axial velocity equal to the 
inlet axial velocity and an equivalent angular momentum change at a constant radius r^ e . 
The definition of m is 


2. 175-0.03552 y+0. 0001917 y 2 

| ( 21 ) 

where the blade setting angle y is in degrees and the ratio c a /c is the fraction of 
chordwise distance to the maximum camber heigh*, point. The modification of m ac- 


m = (0. 219 + 0. 0008916 y + 0. 00002708 y 
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counts for the deviation-angle cnange associated with the different turning rates on the 
two segments of a blade el.nn-nt. For a doubie-eircular-arc-type element, m has the 
same value as that determined by the classical Carter's rule. 

Blade-edge-angle corrections to layout cone. - The last interfacing step relates a 
blade-edge angle at local streamline slope to a blade-edge angle on the layout cone at 
that same point. When the inlet and outlet streamline slopes differ significantly, the 
layout-cone slope must also differ significantly from at least one of the edge slopes The 
angle difference can be properly accounted for through the use of two nonparallel direc- 
tion derivatives. The selected directions as viewed in the meridional plane are the 
streamline meridional and the radial. The direction derivative in the streamline me- 
ridional direction is obtained directly from the Hade angle. However, to get the radial 
derivative it is necessary to fit across adjacent blade elements. The desired derivative 
could have been calculated from a curve fit of points from interpolated and extrapolated 
blade-element definition curves for a common axial location, but the interpolations and 
extrapolations were avoided with another approach. The blade-end-circle centers are 
already calculated with a common reference in subroutine POINTS so that they can be 
curve fit directly and converted to the radial directional derivatives by the methods 
shown in appendix G. In the program, the curv* fit for the edge derivative in the merid- 
ional plane was done in subroutine POINTS, and the conversion to the radial direction 
was done in MAIN. For the first iteration, the radial direction derivative is set to zero. 


Terminal Calculations 

Once the blade geometry is established, the terminal calculations convert the infor- 
mation into a more convenient form for further analysis and further application. First, 
the computed flow parameters at the blade edges can be analyzed by the user to judge 
the practical' ty of the obtained aerodynamic design. Second, the output gives good aero- 
dynamic forces and geometry parameters for mechanical design analysis of stresses and 
natural frequencies. Finally, suitable coordinates for blade fabrication are given. 

Aerodynamic parameters. - Most of the aerodynamic parameters of interest are 
available from the last blade design iteration. The design-point choke margin is the 
major terminal calculation of an aerodynamic nature. The choke margin at the blade- 
channel inlet has been calculated and possibly was adjusted during the iterations if the 
choke-margin option was exercised. Adjustments for better margin at other channel lo- 
cations were not programmed because, in general, it was not obvious what adjustments 
the designer would have chosen. Thus, the minimum blade-element-channel choke mar- 
gins along with their locations are calculated and printed as terminal calculations so that 
such evaluations and adjustments can be made external to the program. 


A local huh- ;n.u is lefincd as the rati > of available flow area above the choke 
flow area to the choked flow area, or (A A*) - 1. Thus, the minimum choke margin for 
a blade element < or responds to the local minimum A A* for the covered channel 
formed by two adjacent blades The local minimum A A* is calculated with an itera- 
tive procedure in subroutine MARGIN. The first two calculations for A/A* and its de- 
rivative with meridional distance are at the channel ends. The next location for an A/A* 
calculation is the minimum of a cubic curve fit to the conditions of two values A/ A* and 
the two slopes d(A/A*)/ds at the end points. Succeeding iterations use the value and 
slope of the last calculated point along wit^ the corresponding values of an end point. 

An A/ A* value is accepted as a minim up • n the magnitude of the slope is below a 
tolerance of 0. 001. 

The ratio A/A* is obtained from three other area ratios. 



The choke areas are based on relative flow conditions for rotors since the rotating chan- 
nel is controlling the choke situation. 

The term A/A| e is a ratio of physical areas. It is obtained from ratios of dimen- 
sions in two directions. The first dimension direction is normal to the flow direction on 
♦ he blade-element layout cone. At the inlet it is the product of blade inlet spacing and 
the cosine of the relative flow angle. In the channel the distance is measui ed on the lay- 
out cone from the suction surface of a blade element to the pressure surface of the ad- 
jacent blade element. The path is normal to the average of the local blade-surfaco 
angles. 

The second ratio of dimensions needed for A/Aj e comes from the rate of stream- 
line convergence. The ratio is obtained from the radial spacing of blade elements and 
the direct ion -angle differences of adjacent layout cones. The local application point for 
this ratio is the midpoint of the blade -to -blade distance path. 

The second area ratio in equation (22), A le /Af e , is obtained directly from the inlet 
relative Mach number and the associated equation for compressible gas flow (ref. 3). 
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The approach to the value of the third area term c 
with relative flow continuity 
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The next step is the introduction of stagnation-state values by multiplication and division, 
so that all static properties can be expressed as ratios of static to stagnation values. 
These ratios can then be expressed in terms of local Mach number, which is 1 for the 
choke values. After cancellation, the equation reduces to 



( 25 ) 


From the definition of relative stagnation temperature, the temperature ratio is 



(y - l)u, 2 (r 2 
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The pressure ratio can be expressed as 



( 26 ) 


( 27 ) 


The last term in parentheses represents the blade-element losses from the inlet to the 
local point. 

The overall blade-element losses can be calculated from the input-data stagnation 
temperature and pressure values at the inlet and outlet. The accumulated loss from the 
inlet to a local point was presumed to be some part of the total. The approach used was 
to break the total loss into shock and profile components. The shock loss was applied at 
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the* blade-clement channel entrance, and the profile loss was made a lun ar function ol 


the distance a lone the bl.ui< element. Ih< b»ss was 

to those of reference 4. but with, a modification. I he me: 
mate normal shock streimth at the channel inlet. At the h 


calculated by methods similar 
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Mach numbers, this model tends to overestimate the actual shock strength lor two rea- 
sons. First, the actual shock often becomes somewhat oblique, and so its strength is 
lowered. And secondly, the blade-surface pressure gradient will not support a strong 
shock. So an apparent strong shock in real flow develops tin 1 weaker structure of a 
shock foot. Consequently, the relative stagnation pressure loss at the channel entrance 
would be expected to be less than that indicated by a normal shock. In an effort to par- 
tially spread the shock loss through the channel, the loss at the channel inlet was calcu- 
lated as the shock loss reduced by the empirical factor 1 was made 

to quantitatively verify this factor from experimental data. It can easily be changed by 
the user in subroutine LOSS. 

Blade-section forces . - The blade forces, which are computed in the terminal cal- 
culations, are of interest for blade stress analysis. Blade forces are determined by the 
principle of change of momentum across the boundaries of the surface formed by the 
edges of a blade through one revolution. The principle is essentially the same as that 
used to calculate the gas forces in the section Balancing of bending moments . However, 
the calculation is slightly different in this case because a local value of force for a radial 
blade increment is desired rather than the contribution to a total force or moment. The 
radial blade increment is located at the average of the inlet and outlet. blade-element 
radii. The change of momentum associated with a blade element is considered appli- 
cable for the radial blade increment, but the static pressures at the blade-element edges 
are interpolated to the radial blade increment radius. Blade force components in the 
axial and tangential directions are calculated in M AIN and are given in units of force per 
blade and per unit of radial height. 

Location of output blade sections . - The terminal blade geometry calculations are 
either made in or controlled by subroutine COORD. In general, blade -section data can 
be requested by the user where information is desired. There are three optional meth- 
ods available for this. With one option, the user tabulates the radial locations of the de- 
sired blade sections. With the other two options, the blade-section locations are se- 
lected within the program. With one the user chooses the number of blade sections 
desired, but with the other the number is selected within the program on the basis of as- 
pect ratio. For either option, a blade section is located at the intersection of the stack- 
ing axis with the casing on the blade attachment end. The other blade sections are 
spread across the blade span. 

Output blade-section coordinates . - The coordinates of blade sections for general 
radial locations are described w r ith the use of subroutine 1NTERP in the same way as 
those at the specific locations used for stacking alinement purposes. However, coor- 
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dinates for fabrication purposes are desired on a coordinate system with a knmh axis 
tangent to the end circles on the pressure side of the blade and a corresponding height 
axis tangent to the leading-edge circle. The conidinate values in this translated and 
rotated system are found directly from the appropriate spline-eurve-fit segment ot the 
blade-section definition points. 

To ease fabrication layout, die suction- and pressure-surface h> ight coordinates 
are given at rounded-number length increments. Height coordinates are also given at 
the end of the blade and for the end-circle cent rs The height values are obtained by 
using the desired independent variable values in the appropriate surface-definition equa- 
tion. 

For fabrication, the blade sections are oriented with respect to the radial line, the 
stacking ray, through the hub stacking point. As noted earlier in the section Reference 
locations for blade sections in stacking , this ray is not necessarily the stacking line. 

The coordinates that are used for the alim-mon* of blade sections during fabrication are 
those of the stacking-ray intersection with the blade-section plane. Those coordinates, 
along with the blade setting angle with respect to the axial direction, are the output 
given for blade-section alinement. The coordinates for the blade-section center of area, 
which is the stacking-line intersection of the blade-section plane, are also given because 
they are the reference point i >r the output moments of inertia. 

For some applications a user may prefer coordinates for the blade sections in the 
turbomachinery orientation, so the original blade -section surface-definition points are 
also printed in subroutine RCOORD. 

Output blade-section properties . - The blade geometry properties needed for stress 
analysis are computed from the blade -section coordinates. The blade -section area and 
first-moment values are calculated in subroutines SPLITG and EDGES as 'hey were in 
the stacking iterations. The higher moments ■ >sired are the minimum moment of in- 
ertia and the section twist stiffness, which is uefined in reference 5 as 


B = 


f/^ * V 2 


k^)(x^ + y^)dx dy 


(28) 


where k is the polar radius of gyration. Since x is the chordwise direction and y 
its normal on the blade section, the minimum moment of inertia can be found from I 
I yy , an d r xy with 
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where 
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By expansion of equation (28) into a suni of integrals, it is seen that B can be de- 
termined from the moments of inertia and * xxxx - *yyyy- ant * ^xxyy e Q ua ^ ons f° r 

these moments are developed in appendix D for the spline pieces. The values are calcu- 
lated in subroutine IMOM. The corresponding end-circle moment corrections are calcu- 
lated in subroutine ENDS with the equations developed in appendix E. 

The other calculated blade geometry parameter is the torsion constant, wh^h .s de- 
fined in reference 6 as 


K = 


- F 
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where 
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(31) 


The variable t is the blade-section thickness normal to the blade-section centerline 
path u. The equations for expressing t as a general function of u on a blade section 
are developed in appendix H. The calculation of F is done in subroutine TORSN. 


DISCUSSION OF COMPUTER PROGRAM 

The blade design computer program as presented in appendix I is run as a separate 
entity from a compressor aerodynamic design, but it is structured to be run in conjunc- 
tion with a compressor aerodynamic design program. The point is made to explain, 
first, the double dimensioning where only one dimension is needed and, second, the fail- 
ure to save many computed blade-element values. The need for doubly dimensioned 
variables arises when this program is run as a part of a composite multistage compres- 
sor design program. Enough information must fee prescribed to define blade parameters 
for an array of blade elements within an array of blade rows. On the other hand the 
number of variables dimensioned was minimized because of computer storage limitations 
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for the broader mode of operation, .lust enough information to fully describe the blade 
elements is stored, and all other parameters are calculated from the basic information 
as needed. 

The overall operation of this program is controlled in MAIN. The oilier subroutines 
of major control are CONIC for the blade-element design. STACK for blade-section def- 
inition and the stacking adjustment shift, and COORD for the terminal calculations and 
printing. The call sequences of the subroutines are detailed in figure 8. The program 
variables for the commons and the individual routines are described in appendix I. The 
core storage is about 29 jOO words. The breakdown is 21 200 words for coding, 5000 
words for undimensioned and dimensioned variable storage, and 3300 words for systems 
On an IBM 7094 the running time is about 1 minute for a blade row with eight stacking 
iterations. 

For the first few iterations the stacking shifts for each iteration decrease in size by 
almost an order of magnitude. Usually the stacking shifts for all blade elements are 
less than 10’^ of blade-element chord within five iterations. However, a specification 
of close blade elements with significant streamline slope (see section Stacking adjust- 
ments to blade elements on cone ) can cause convergence difficulties. Even though the 
stacking process for a troublesome case may not end up convergent, the blade-element 
shifts in the beginning usually become smaller for the first few iterations and then di- 
verge. The stacking shifts may be low enough after some iteration that the user may 
want to consider the stacking well enough converged. To give the user the freedom to 
make this judgement, the program is set up to always run eight iterations with the blade- 
element stacking shifts printed for each iteration. The shifts relative to the blade- 
element chord are DM in the meridional direction, which is along the ray of the layout 
cone, and DY in the tangential direction. If the user decides to terminate the iteration 
process at some other number of iterations, he can most easily do it in MAIN by chang- 
ing ICONV to 2 on the desired ITER number. The particular statement lies between the 
statements with external formula numbers 900 and 920. When the logical parameter 
ICONV is set to 2, the terminal calculations are activated on the next iteration. 


Input Data 

The input data are read and processed in subroutine INPUT. The card format for 
the data is shown in appendix I. The input parameters and the options they represent 
are listed and described together as a group in appendix I, even though the parameters 
are mentioned agair in the description of variables for the routines. The input data es- 
sentially consist of inlet and outlet station information for describing velocity diagrams 
and parameters for blade-element description. The velocity diagrams are located and 
described with radius, axial location, axial velocity, tangential velocity, streamline 
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slope, stagnation temperature, stagnation pressure, and rotational speed. The molec- 
ular weight of the gas and the coefficients for a fifth-degree polynomial of specific heat 
as a function of temperature are input for the velocity diagram corrections to the blade 
edges. 

The blade stacking axis is initially located by the user with coordinates at the hub 
and tip in the meridional plane and a tilt angle in the Ungential direction. The stacking 
line may later be adjusted for rotors by using an option to balance gas bending moments 
with the bending moment induced by centrifugal force on a leaned blade. The blade chord 
at the dp is specified indirectly through the number of blades and the solidity at the tip 
radius The chords at other radii are specified through a cubic polynomial of chord to 
tip chord as a function of the fraction of passage height. The blade -element leading - 
and trailing-edge radii and the maximum thickness are input as a fraction of chord. The 
radial distributions of these parameters are specified as cubic polynomial functions of 
the local fraction of passage height. The blade-element incidence angle, the deviation 
angle, the location of the segment transition point, the turning-rate ratio of the seg- 
ments, and the location of the blade-element maximum point are controlled by input op- 
tions. The available options for these variables are described in the discussion of input 
data parameters AA, AB, BB, CC, DD, EE, and EB in appendix I. 


Printed Output Data 

The printed output includes the input data with the associated options selected, the 
blade-element stacking shifts during iteration, and the results of the terminal calcula- 
tions (see the example in appendix I). For the most part the information is printed 
shortly after the calculations are made, so the output data appear in the order of the 
program steps. The input data and the stacking shift information have previously been 
sufficiently discussed, so only the terminal calculation output is further explained. 

The first page of terminal calculation data gives the blade- element edge locations 
m the meridional plane and the velocity component corrections at the blade edges. The 
second page of terminal calculation data gives blade-element parameters and blade force 
distributions. The blade-element parameters are listed here. Some of them are shown 
in figure 3. 

(1) Ratio of leading -edge radius to chord. r c ^ g /c 

(2) Ratio of maximum thickness to chord, t / c 

(3) Ratio of trailing-edge radius to chord, r £ V c 

(4) Ratio of maximum -thickness location to chord, c m /c 

(5) Ratio of transition-point location to chord, c t /c 

(6) Ratio of segment inlet to outlet curvature, Cj/Cg 

(7) Suction-surface change of angle of the first segment, Kj g - K^g, deg 


I 
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(6) Blade setting angle. . deg 

(9) Blade-element solidity, J 

(10) Blade-element aerodynamic ( f ord, c, in. 

(11) Ratio of maximum -camber -point location to chord. c,/c 

(12) Incidence angle, i, deg 

(13) Incidence angle to suction surface at leading edge, i , deg 

(14) Inlet relative flow angle, f ^ e , deg 

(15) Inlet blade angle on streamline, Xj fe st , deg 

(16) Inlet blade angle corrected to layout cone, k^, deg 

(17) Deviation angle, 6, deg 

(18) Outlet relative flow angle, ,3. , deg 

(19) Outlet blade angle on streamline, x^ e deg 

(20) Outlet blade angle converted to layout cone, x^, deg 

(21) Centerline blade angle at transition point, x^, deg 

(22) Shock location as fraction of suction surface, f g 

(23) Covered channel as fraction of suction surface, f 

(24) Minimum choke-area margin in covered channel, 

(25) Location of minimum choke point as a fraction of covered-channel centerline 
path, / 

(26) Blade force components (axial and tangential tabulated with radius), lbf/ 

(radial in. )(blade) 

The blade-section properties are given in two forms. First, blade-section coor- 
dinates in the chordwise and normal directions are listed in a form suitable for fabrica- 



tion layouts. And second, the blade-sec don definition points are listed in the turboma- 
chinery orientation. In the headings for the first set of coordinates the following 
blade-section properties are given. The coordinate system for the blade-section output 
data is illustrated in figure 9. 

(1) Radial location of blade sect' on, r g p, in. 

(2) Stacking -point coordinates 

(a) Length along chord, L, in. 

(b) Height from chord line, H, in. 

(3) Blade setting angle from axial direction, y, deg 

(4) Center-of-area coordinates 

(a) Length along chord, L„, in. 

(b) Height from chord line, H in. 

(5) Area, A, sq in. 

(6) Minimum moment of inertia through center of area, I min , in. * 

(7) Maximum moment of inertia through center of area, I majc , in. * 

(8) Minimum-moment-of-inertia setting angle with respect to axial direction, y^, deg 
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(9) Seclion torsion constant, K. in. 

0 

(10) Section twist stiffness, B, in. 

In addition to printed output, it is sometimes convenient to get output in other forms 
with the use of available computer peripheral equipment. On the NASA Lewis computer 
the program is set up with output options through the input variable OPO to give the fab- 
rication coordinates on punched cards and on microfilm. Subroutine BLUEPT has the 
coding which controls the microfilm plrtting. It was originally developed for the program 
in reference 1 by David Janetzke and Gerald Lenhart. Since the system microfilm sub- 
routines called will not be applicable on another computer, a discussion of the specific 
function of these systems library subroutines is given in appendix J to help in the conver- 
sion to another facility. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, June 29, 1973, 

501-24. 
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APPENDIX A 


SYMBOLS 

A blade-section area, sq in. ; also channel cross-sectional area norma' to flow, 
sq in. ; also a constant during a mathematical operation 

9 

a constant during a mathematical operation; also acceleration, ft/sec 
B blade -section twist stiffness, in. ; also a constant during a mathematical operation 
b constant during a mathematical operation 

C segment blade angle with path distance derivative dic/ds or curvature which is con- 
stant for the segment, in. also a constant during a mathematical operation 

c blade-element chord on layou' cone (includes edge-circle radii), in. ; also a con- 
stant during a mathematical operation 

D constant during a mathematical operation 

d constant during a mathematical operation 

e development constant in appendix D 

/* U 3 4 

F blade-section property integral, / t du, in. ; also force, lbf 

•'o 

f fraction of total su .ion-surface path; also constant expressed by eq. (D13) 

/ location of minimum choke point as fraction of covered-channel centerline path 
g gravitation constant, 32. 1740 lbm-ft/lbf-sec 2 
H height (normal) coordinate on blade section, in. 

h development constant in appendix D; also blade-section effective thickness for mass 
moment, in. 

4 

I mom _-nt of inertia, in. 
i incidence angle, deg 

J total number of streamlines 

j streamline index 
K blade-section torsion constant, in. * 
k radius of gyration, in. 

L length (chordwise) coordinate on blade section, in. 
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I moment lever arm, in.; also path of stacked-blade-element end-circle centers, 
in. 

M Mach number; also total moment, in. -lbf 

m coefficient for Carter’s rule for deviation angle; also mass, slugs; also merid- 
ional component distance, in. 

n number of series terms; also coordinate in tangential direction, in. 

o 

P stagnation pressure, lbf/ft 

2 

p static pressure, lbf/ft 

R radial coordinate on blade-element layout cone, in. ; also gas constant, lbm-ft/ 
lbf-°R 

r radius coordinate in cylindrical coordinate system, in. ; also end-circle radius, 
in. 

s path distance on blaae-element layout cone, in. 

T stagnation temperature, °R 

t static temperature, °R; also blade-section local thickness, in. 

U blade-section centerline length, in. 

u increment along blade-section centerline, in. ; also functional variable 

V velocity, ft/sec 

v functional variable 

X functional variable expressed by eq. (B9); also a redefined independent variable 

DC functional variable expressed by eq. (B7) 

Xj value expressed by eq. (B31) 

Xg value expressed by eq. (B25) 

x functional variable, usually the independent variable; also blade-section coordi- 
nate in chordwise direction, in. 

y dependent functional variable; also blade-section coordinate normal to chordwise 
direction, in. 

z axial coordinate in cylindrical coordinate system, in. 

a layout-cone half-angle, deg; also functional angle variable, deg 

/3 relative flow angle, deg 

y blade setting angle, deg; also ratio of specific heats 


} 
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6 deviation angle, deg 

e angular coordinate on blade-element layout cone, rad 

77 stacking-axis ean in circumferential direction, deg 

0 angular coordinate in cylindrical coordinate system, deg; also angular coordinate 

on end circle, deg 

k local blade angle with respect to conic ray on blade-element layout cone, deg 

X stacking-axis lean angle in meridional plane, deg; also angle of line through corre- 
sponding points on suction and pressure surfaces of a blade section with respect 
to normal to chord line (fig. 19) 

£ dummy angle variable, rad 

3 3 

p gas density, lbrn/ft ; also blade material density, Ibm/ft 

a blade-element solidity 

<p camber of blade element which has equivalent angular momentum change at con- 
stant radius, r^ e , deg 

u> angular rate of rotation, rad/sec 

Subscripts: 

a moment associated with axial and radial forces acting with lever arms in merid- 
ional plane (fig. 7); also chordwise location of maximum camber point of blade- 
element centerline 

ba moment produced by axial gas bending forces acting with radial lever arm from hub 

bt moment produced by tangential gas bending forces acting with radial lever arm 

from hub 

c end-circle center; also blade-element centerline on layout cone; also channel 
formed by adjacent blade elements 

ca blade-section center of area 

da moment correction (resulting from tip slope) to moment obtained by summation of 
centrifugal force acting at blade-section centers of area in meridional plane 

dt moment correction (resulting from tip slope) to moment obtained by summation of 
centrifugal force acting at blade-section centers of area in r-9 plane 

e blade-element, blade-section end 

h hub 

1 minimum moment of inertia of blade section 

tK 


31 


i isentropic flow process 

k local point in array 

L intersection of blade-section pressure surface with end circle 

le leading edge of blade element 

m maximum thickness point 

max maximum value 

min minimum value 

n next iteration 

p pressure surface 

R ratio 

s suction surface 

sh shock 

sp blade -section stacking point 
st streamline 

t transition point; also moment associated with tangential and radial forces acting 
with lever arms in t-9 plane 

te trailing edge of blade element 

U intersection of blade-section suction surface with end circle 
x axis about which a moment is taken 

y axis about which a moment is taken 

0 initial or reference point 

1 first segment; also first point in a set of sequence points 

2 second segment; also second point in a set of sequence points 

3 third point in a set of sequence points 

4 fourth point in a set of sequence points 
(-) upstream side of transition point 

(+) downstream side of transition point 
Superscripts: 

' first derivative; also relative to a rotating blade 
” second derivative 
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center-of-area shift increment; also average value 
choke value 



APPENDIX B 


DEVELOPMENT OF EQUATIONS FOR CONIC ANGULAR COORDINATE 


The differential form for the conic angular coordinate e is 


R dt - sin ds 


or 


R 

sinjKQ + C(s - SQ>]ds 
Rq + — sin [k 0 + C(s - Sq)] - — sin k q 

sinHco + C(s - Sq)Jc ds 

de p r=r 

RqC - sin Kq + sinjKQ + C(s - s Q )J 


(9) 


( 10 ) 


The integral of equation (10) is of the form 



sin x dx 
a + b sin x 


x 

b 


*/- 

by a + 


dx 


b sin x 


( 11 ) 


When equation (11) is applied to equation (10), note that b - +1. Also, the variable x 
is Kq + C(s - Sq) and the constant a is RqC - sin k q . 

The second integral In equation (11), > /*dx/(a + b sin x), takes different forms de- 


pendent on the relation of a to b. 


If a 



= 1 , 



dx 

1 ± sin x 



(Bl) 
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2 2 
If a* b , 


/ 


dx 


a + b sin x 


Va r -b= 


tar 


i ian - f b 
_ _2 

/a 2 - b 2 


(B2) 


If b 2 > a 2 . 




dx 


a + b sin x 


In 


fb 2 - a 2 


a tan^- j + b - ^b 2 - 




a tanf - ♦ b ♦ Wb 2 - a 2 


(B3) 


or alternately, 


/; 


dx 


-2 


a + b sin x j h 2 q 2 


tanh* 


_ i 


© 


a tan / - \ + b 




for 


© 


a tan/- \ + b < l/b* - a 


Vb 2 " 2 


(B3a) 


and 


/: 


dx 


a + b sin x ^2 _ a 2 


“ 2 coth' 1 


© 


a tan/ - 1 + b 




for 


a tanf - ^ + b > ^/b 2 - a 2 


■(f) 


(B3b) 


The next step is substitution of the turbomachinery nomenclature into the general 
integral forms. First, consider the case of a = b = +1. 
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Case of a - b 
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A? 


Case of a b • -1 in General Integral 


/ — 

u) J (-D + 


= K - K, 


(-1) + (l)sin x 



/ sin x dx 
sin x 


Case of a~ b“ in the General Integral / — — — 

J a + b ? 

For the case a 2 b 2 apply ccj- ion (B2), to -ive 


2 R 0 C - sin k () ) 


V*o c 


- Sill Kq) ' 1 


- C s 5 - S 0 ! 

R n C - sin K n ;»an 1 

- 1 0 0 2 


V< 


(RqC - sin * 0 r - 1 


2( RqC - sin k q ) 


^RqC - sm kq ) 2 - 1 


(RqC - sin h y tan - ♦ 1 (RqC ’ sm ,v 0^ tr * n — + * 

- ■ 2 tar.' 1 




Sin - 1 


i 


(RqC ” sin Kq) - 1 


2<R r C - sin i 

r- — - tan <. tan 


kf 


Sbl K,J Z - 1 


tan 


(R q C - sin K 0 )tan - + 1 (RflC - sm * 0 )tan — + 1 

1 2 - - tan’ 1 = 

V^v 


2(RqC - sin kq) 




tan 


- s.n kJ 2 - 1 


S- 


sm Kq) £ - 1 


- sin \ n )tan - + 1 
1 u u 2 


(RnC - sm (>.„)“■ - 1 


Y ,R o c 


i 


tan 


(R n C - sin * n r - 1 


1 


(R a C - sin K rt )tan ► 1 

1 0 U 2 


y<R 0 C - sin Kq)^ - 1 


1 -e tan 


tan 


^ 'RqC - sin ►. 0 )tan ~ * 1 




(R n C - sin Kq) 2 - 1 


tan 


tan 


(R n C - sin K n )tan — + 1 
1 0 U 2 


v= 


(RqC - sin Kq)^ - 1 


(R 0 C - sin K 0 )tan - * 1 (S Q C - sin K.ltan - 


Han — +1 


2(R () C - sm k 0 ) -l j ^ 

fac - sin Kq ) 2 >1 

^(R 0 C - sin« 0 ) 2 - 1 

«0 ' -7=* tan i 

ytR 0 C - sin k 0 ) 2 - 1 

! i * 

(RqC - sin K 0 )tan ^ + 1 

K 0 

(R 0 C - sir K Q )tan — + 1 

^(RqC - sin k 0 ) 2 - 1 

. 

^(RjjC - sin k 0 ) 2 - 1 


(RqC - sin k q) ^(RqC - sm k q ) Z -l^tan | - ten °j 

° fa - sin k 0 ) 2 - 1 - sm k q ) 2 - \ * J(R<,C - sin * 0 itan | + lj |(Ro C ' 8in K 0 )tan J + l ]J 


tan < — 


2(R^C - sin Kq) _ i . 

K _ „ r -_y_ - - - tan ^ 


^’•0 c - 

where J) is defined as 


sin ' 1 


(B6) 
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^ 0 c - sin <vq)“ - 1 /tan - - tan — 


K 

2 


°) 
2 L 


(R ft C - sin K n ) ( 1 + tan - tan — \ + tan - + tan 
U U \ 22/ 2 2 


(B7) 


Case of b 2 > a 2 and 


a tan^-^ + b < 


rb 2 - a 2 


2 2 

For b > a , there is a choice of either equation (B3) or the alternate forms given 
by equations (B3a) and (B3b). The alternate forms were chosen because the results are 


equations similar to equations (B6) and (B7). This similarity will be used to further ad- 
antage later in th e develop ment, 
a tan^ +b| < - a 2 , gives 


2 2 

vantage later in th e develop ment. Equation (B3a), which is applicable for b > a and 




gL- Lnh- 


2(RqC - sin * 

^T- (RqC - sin * 0 ) 2 ^ 


(RqC - sii 

h Q )tan 

”*0 + C(s - 8 0 )- 

+ 1 

. ? , 

V 

2 

1 - (RqC - sin Kq) 

> 


X K - Ka + 


2(RqC - sin * 0 ) 


Jl - (R q C sin * 0 ) 2 


(RqC - sin KQ>tan - + 1 (RqC ' sin 1 

tanh " 1 — 2 - tanh " 1 2 


f 


1 - (RqC - sin « 0 r 


{l - (RoC - sin k 0 ) 2 


= “ - *n *■ 


2 ( 1^0 - sin « 0 ) .j 




tanh < tanh Itanh 


- sin K ft ) 


(RqC - sin KQ)tan - + 1 (RqC ' sin K 'o^ tan + * 

1 2 -tanh ' 1 2 


y i - (I^C - sin « 0 ) 2 y^l - (RqC - stn k ,,) 2 


JJ 


2(R,C - sin k 0 ) , 

~ k - k p. ■¥ ^ ... 1 1 « ctanh 


= K - Kf, - 


y 1 - (HqC - sin Kq ) 2 


2 (RqC - sin jc 0 ) 

( Rq C - sin KqY 

2 (RqC - sin Kq) 

yi * (Ro c - 8in k o> 2 


tanh 


tanh 


^ <RqC - sin f<Q)tan ~ + 1 


^1 (RqC - sin k ^ 2 


- tanh 


tanh 


(RqC - sin K 0 )tan + 1 


^T- (RqC - sin k q ) 2 


1 - tanh 


tanh 


^ (RqC - sin tfQ)tan ^ + J 


T 


(RqC - sin Kq) 


tanh 


tanh 


^ (RqC - sin K 0 )tan ~ + 1 


^ 1 - (RqC - sin * 0 ) 2 


tanh 


- (RqC - sin Kq) 2 (RqC - sin K^tan ^ - tan 


1 - (RqC - sin « 0 ) 2 - (RqC sin Kq) 2 tan ^ tan 


7 - < R 0 C ' 9in ‘O^ 2* taD j)' 


tanh"* X 
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where X is defined as 


X 




- (RqC - sin Kg) | tan - - tan — j 


K o\ 


(RqC - sin Kq) (l 4 tan - tan 

2 


Kg\ 

2 


?)• 


K n 

tan - tan — 


(B9) 


Investigation of tanh" 1 X = ±°° 

Equation (B8) does not appear practical because tanh* 1 X approaches +°° and -<*> 
at x = 1 and X = -1, respectively. To investigate the conditions which lead to this re- 
sult, solve for k/2 at x = ±1- 



Square both sides and solve for tan(«/2). The result is 



-1 ± ^1 - (RqC - sin k ( 


RqC - sin <Cq 


(BIO) 


By using equation (BIO) in (B9) it can be shown that the plus sign in equation (B1C) is the 
solution for X = -1 and that the minus sign in equation (BIO) is the solution for X= 1. 

Table I lists k/2 values which make tanh -1 X equal to ±°° over the hyperbolic 
function range -1 < (RqC - sin k q ) < 1. The k values associated with X = -1 are 
clearly in the turbomachinery range of interest. So there is a need to investigate what 
causes tanh* 1 .#’ to approach -<*>. Start with the equation for conic radius 


R - R ft = — (sin k - sin k 0 ) 


(4) 
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] 


RC = (RqC ' sin K 0^ + sin K ~ < R 0 C " sin *(p + 2 sin ~ cos ~ 


sin - tan - 

sin k q ) + 2 — cos 2 - = (RqC - sin k q ) + 2 — 

cos - 2 1 + tan 2 - 

2 2 

Substitute equation (BIO) with the plus sign. The result is RC = 0. So, either C = 0 
or R = 0. 

First consider C = 0. Since dx/ds = C, k = Kq for all s when C = 0. Thus, 
equation (8) for the conic radius reduces to 

R = Rq + (S ~ Sq)COS Kq 


= IRo c - 


When k is constant, the equation for e (eq. (9)) can be expressed as 


de = 


sin Kq ds 
R 


sin Kq ds 

Rq + COS Kq(s - Sq) 


(Bll) 


sm k. 


£ - e Q - 


COS K/ 


ln[RQ + cos k 0 (s - s 0 )]P 


= tan K Q (ln R - In Rq) = tan Kq lnp^ 


(B12) 


Ail Kq of interest lie inside the range -v/2 to n/2. So £ - Cq approaches only 
as R approaches zero. Therefore, the conclusion is that R = 0 is the condition which 
makes tanh"*x approach -*>, whether or not C = 0. This, in essence, means the 
curve spirals infinite revolutions as R approaches zero for xr/2 < l K o t < 

Fortunately, R never approaches -:ero in the turbomachinery application, so 
tanh 1 X remains finite. Thus, the tanh’^X form cf solution could be satisfactory, 
but it remains to be shown if and when the tanh"*X form is usable. Basically, it is 
applicable only when |x| < 1 because the coth"*X form of equation (B3b) is used 
when |x | > 1- Thus, the next consideration is an investigation of the possible range of 
X for die turbomachinery application. 
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Investigation of Range of X 


Let us begin with equation (4), which in general can be expressed as 

Constant - RqC - sin Kq - RC - sin k 

As a convenience, define k c as the k value in the range -ny 2 to n/2 for R = 0. So 
the preceding equation can be extended to 

Constant = RqC - sin Kq = RC - sin k = -sin k q (B13) 

The defined value of « c and the other * c values which satisfy equation (B13) are the k 
values which make X = ±1. (This can be shown by substituting -sin k £ for 
RqC - sin Kq in equation (BIO) and applying the tangent half-angle formula. ) Thus, X 
can cross between the j X j > 1 and | X j < 1 regimes only when k equals the « c val- 
ues. Since X is a single-valued function of k, all X values between consecutive * c 
values must be in the same | X | regime. This characteristic is shown graphically in 
figure 10, which has plots of X against k for the two sample k q values of 45° and 
-20°. On each example plot, curves for a spectrum of Kq values are shown to illus- 
trate the nature of the function. 

The k range of interest for turbomachinery is from -n/2 to n/2. The defined k q 
is the only x value in this range because sin k c is single valued between -n/2 and 
n/2. Thus, observations of whether regimes of | X j are greater or less than 1 can 
be made vith respect to this particular k q . A first observation from figure 10 is that 
the k curves switch between the |x|>l and |x|<l regimes as x Q crosses k q . 

A study of the X = 0 points is an indirect way of showing that the X -against-x curves 
switch regimes precisely at Kq = « c . From equation (B9), note that X = 0 when 
K = k q . Thus, as Kq is moved closer and across « c , the X = 0 point moves with k q 
and hence with k. Since X = 0 is in the |X j < 1 regime and stays in that regime as 
Kq crosses x c , the direction of the |x | regime crossover at K r has to switch when 
Kq crosses x c . Since no other « c can lie in the range -n/2 to n/2, only the one 
switch of regime can occur in the -n/2 to n/2 range of k. So k stays in the | X| <1 
regime when on the Kq side of k . The preceding reasoning leads to the general con- 
clusion that X is always in the [ X | < l regime when x and Xq are on the same 
side of k q within the -n/2 to n/2 range of k. 

So far it has been shown that the regime of | X j is tied to the relation of x and 
Kq to k £ . To further investigate these k relations in the turbomachinery application, 
rewrite equation (B13) to show k and Kq as functions of k c , C, and R. 

sin k = sin k c + CR 
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sin Kq - sin ^ + CRq 


(B15) 


By definition C is a constant for a curve, so the remaining information needed is the 
limits of the variation of R with respect to Rq. When the cone angle a of figure 1 is 
positive, Rq is positive; but when a is negative, Rq is defined as negative. However, 
whether the blade-element cone is defined by a positive or negative a , a blade element 
for turbomachinery is always completely defined on the cone without ever approaching 
R = 0. Thus, R always has the same sign as Rq. This means that, by equations (B14) 
and (B15), n and Kq are always on the same side of k £ . So ; X j is always less 
than 1 in the range -»/ 2 to ss/2 for Kq and «. 

The conditions imposed along the way to the preceding conclusion can be summa- 
rized as follows: For JRqC - sin Kq j < 1, the X defined by elation (B9) has an ab- 
solute value less than 1 when k and Kq are in the range -it/ 2 to is/ 2 and R has the 
same sign as Rq. Since the turbomachinery application falls within these k and R re- 
strictions, the conclusion is rather significant because it is not necessary to consider 
the coth"*X form of equation (B3b) at all. This means that the natural logarithm form 
of equation (B3) can be replaced with only the alternate form (B3a), which was developed 
to equations (B8) and (B9). The alternate form is selected because of the similarity of 
the arguments with those of equations (B6) and (B7). Later it will be shown that this 
similarity leads to further simplification. 


Consideration of Accuracy of Computation 

Equations (B4) to (B9) are a complete set of equations for e - €q, which also is ex- 
pressed as Ac in the text. For a blade-element path As, Ac is the conic angular co- 
ordinate in the circumferential direction; and R Ac is the circumferential component 
distance in the units of s. As long as the conic half-angle or is several degrees from 
zero, R and Ac can readily be calculated and used to accurately define a blade ele- 
ment. However, as a approaches zero, R approaches ±°° and Ac approaches zero. 
This means that conic coordinates cannot be directly used for the degenerate case of a 
cone to a cylinder or radius r. As or approaches zero the conic coordinate R ap- 
proaches independence from As and k (see fig. 1 and eq. (8)). Sc R Ac approaches 
the circumferential component of As. Since R can be considered as a constant for the 
degenerate case of a cone to a cylinder, a simple equation for the circumferential com- 
ponent can, and later will be, derived from equation (9) . 

In the preceding discussion it was shown that, at some point in the or approach to 
zero, it is necessary to switch from the conic coordinate system to the cylindrical. The 
condition for a switch most logically comes from an accuracy criterion. From equa- 
tion (8) it can be observed that the relative error by which R is not constant is approxi- 
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mately As/R. In general, this means that to keep an accuracy of more than a few sig- 
nificant figures in a computed circumferential component of As, the switch to the cylin- 
drical coordinates must be made at a's very near zero. Thus, the mathematically ac- 
curate conic coordinate system is needed to nearly zero a/'s. The problem is that 
sufficient computational accuracy with conic coordinate systems is not always attained 
with normal procedures. The nature of the problem and its remedy are the subject of 
the following discussion. 

Each of the equations for the computation of Ac in the conic coordinate system is 
expressed as «-* 0 plus another term. As or approaches zero, Ac also approaches 
zero; so in general, |Ac| becomes much less than |ak|. When |Ac | « |ak|, the 
computational accuracy of Ac becomes poor because Ac is determined by the subtrac- 
tion of a term nearly equal to Ak from Ak. One way to improve accuracy is to reduce 
or eliminate the subtraction of nearly equal terms in the computation of a Ac value. 

For the turbomachinery application, the computational accuracy of Ac can be improved 
considerably with the application of infinite series forms for the functions of equations 
(B4), (B5), (B6), and (B8). 


Series Forms for Ac Equations 


The series for tan”* A' is 


tan" 1 A' = A - - J 3 + - A’ 5 - - A' 7 + - • • 
3 5 7 


= i ll - - A' 2 +-A A ~- A S + •■ -1 for A'* 

L 3 5 7 J 


where A’ is defined by equation (B7) for application of equation (B16) to equation (B6). 
The absolute value of A' can be greater than 1, but a rather easy way to handle that 
will be shown later. For equation (B6), 



2(RqC - sin ^ 


V^ 0 C - sin k q ) 2 - 1 
2 (RqC - sin a q ) 
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-A-il.-ll-.il*. . \ 

1 \ 3 5 7 ) 




(RqC * sin Kq) 

2 (RqC _ sin Kq) 


sin Kq ) 2 - 1 |tan * - tan 


V(RqC - sin Kq ) 2 - 1 |(RqC - sin k q ) ^1 + tan - tan — j + tan - + tan — | 


c v-i- f • ) 


2(RqC - sin kq) 




(RqC - sin kq) 


^1 + tan ^ tan 


+ tan * + tan — 


\ 3 7 8 ) 


(Bi7) 


At this point note that for RqC - sin Kq = 1, which is the special case covered by 
equation (B4), j)' - 0 and equation (B17) reduces to equation (B4). Likewise for 
RqC - sin Kq = -1, which is the special case covered by equation (B5), equation (B17) 
reduces to equation (B5). Thus, equation (B17) can be used in place of equations (B4) 
to (B6). 

The remaining equation of the set for Ac is (B8). The series form for tanh’^X 
in it is 


tanh x 



. = X 



+ 




+ . 


1 


for X 2 < 1 
(B18) 


where x is defined by equation (B9). 

We have already shown that the absolute value of X is always less than 1 for the 
turbomachinery application, so this series is always applicable. For equation (B8) 
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(B19) 


Single-Series Form of Equation 

Equations (B17) and (B19) look similar, and upon examination it can be determined 
that they are in fact the same. Note that the J’* of equation (B7) is the negative of the 
X 2 of equation (B9). This difference of sign accounts for the sign differences of the 
series. Thus, equation (B19) can be used for all values of RqC - sin kq> so long as 
X 2 < 1. For |RqC - sin« 0 j < 1, which produced the tanh -1 X form of equation, it 
has been shown that X 2 < 1; but for |R 0 C - sin k q | > 1, which produced the tan" J 
form of equation, .^‘ 2 can be greater than 1. When j) 2 is greater than 1, either an 
alternate series for tan" 1 .'/' needs to be used for convergence or a cot" .•) function 
can be used. However, with the use of half angles, it is possible to keep the argument 
in the convergent range so that only the one form of equation is retained. 


Application of Half -Angle Formulas 

An inverse function can be expressed in terms of a half-angle as follows: 

tan"* .>)' = i = 2^ 

The if 2 can be expressed in terms of .’) as follows 
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sin 


For | £ | < ji/ 2, 



sin ; 
1 + cos 


cos 

1 T cos £ 

( OS i 


tan 4 
1 + sec i 


tan £ 


+ 


tan 2 ^ 


tan £ 

2 1 + ^1 + .'/ 2 

£ = tan* * tan/-^ = tan”* '~i 

2 V) l+ y i+ ,y2 

_i .. . i •'} ,i 

tan 1 = 2 tar. A = 2 tan 1 X 

1 + ^1 T7 > 2 


(B20) 


where by definition 



(B21) 


The maximum value of { ^ | is ?.j 2 for turbomachinery so the maximum value of 
1 1/2 1 is jt/ 4. Therefore, 




+ ^1 


£ 1 


So the half-angle procedure reduces the argument of the series enough to make the 
tan*.^ series always converge; thus, the series in equation (B19) always converges. 

Before applying the half-angle procedure to the general equation, let us check the 
procedure with the hyperbolic functions to see if the procedure is completely general. 
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tanh *X -- i = 2^ = 2 tanh' 1 ^tanh 


- 2 tanh 


-1 si nh i, 

cosh i + 1 


- 2 tanh 


sirh 4 
cosh 4 
cosh 4+1 
cosh ( 


,2 tanh - 1 . ^A i- , 2 tanh ' 1 


tanh ^ 


1 + sech 4 


. VT 


tana 2 4 


For |£ | < jt/2, 


tanh' 1 x = 2 tanh " 1 




= 2 tanh' X, 


1 - X 


(B22) 


where by definition 


X 


2 " 



(B23) 


Equations (B20) and (B22) are the same in application to the general equation when 
the x *s are defined the same. Remember the .>) 2 in equations (B20) and (B21) is the 
negative of the x ^ in equations (B22) and (B23). Thus, the half-angle formulation in 
general can be substituted into the general equation (B19). 


£ - €q - k - k q - 


4 (RqC - sin Kq) (tan ^ - tan — j 


(l + ifl - X 2 ) (RqC - sin k 0 ) + tan | tan-^\ + tan* + tan ^1 


x 


X 2 v 4 

X 2 X 2 
3 5 




(B24) 


where X 2 is defined by equation (B9) and X | by equation (B23). The term 
1 + Vl-X 2 in turbomachinery nomenclature is 
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1 - X ‘ = 1 + 


1 




1 - (RqC * sin k 


o' 2 ] 


tan - - tan — 

9 


(RqC - sin KqJ |i + tan - tan — 


-j + tan - + tan — j 


With some trigometric manipulation, the preceding equation becomes 
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With the substitution of equation (4), the preceding equation becomes 


♦ft 


- X 2 = 



(B25) 


The term CRfl/R/Efl, as shown, yields the proper sign for the square root. The X 
for the half-angie form can be expressed as 


x 2 - 
x 2 - 
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(B26) 
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Now substitute equation (B25) into (B24) and reduce as follows: 



After all the manipulation, the half-angle form of equation (B27) is no more compli- 
cated than equation (B19). It also has the advantage of the need of fewer series terms to 
converge to a desired precision in calculation. The half-angle procedure can be repeated 
to further reduce the number of series terms needed. However , a further reduction of 
the number of series terms complicates the coefficient term for the series to a much 
greater extent than the first application of half -angles. So it was not considered useful 
to carry it further. The number of series terms needed will be shown later when the 
operating form of the equation is finally established. 


Use of a Sine Series to Effectively Cancel Large Terms 

At this point, let us readdress ourselves to the problem of finding € - Cq by the 
subtraction of two nearly equal numbers. The problem can, to a large extent, be elim- 
inated by further series treatment and cancellation of the large terms. Begin by re- 
writting equation (B27) as 
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wher? D is a temporary symbolic representation of the denominator. 
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(B28) 


Aji example best illustrates the superiority of equation (B28) over (B27) for compu- 
tational accuracy when R is relatively large. Let Rq = 1000, As = 2, «q = 45°, and 
k = 35°. In equation (B27) the numbers combine as follows: 


4(RqC - sin k 0 ) sin 


K-K n K * K 0 / o 

(RqC +Sin Kq)cos -+sin -+CRq+I — 

2 2 iRn 


/ Y 2 y 4 y 6 y 8 

U.h.h+h.h 

\ 3 5 7 9 , 


= -0. 1745329252 - 30 - 669607 12_ (Q 9993500159) 
-174.3292180 ’ 


= -0. 1745329252 + 0. 1758159460 = 0. 00128302 radian 


Two orders of magnitude of precision are lost in the final operation, since the answer is 
obtained by subtraction of nearly equal numbers. 

In equation (B28), the numbers combine better, as shown in the following: 
















t-o 1745329252)^0. 70? 1067811) + [ 0 . 6427 876096* ♦ (-i>.0 6fa73 %5H3. - » -0 11153 W5 l -■ C- 01975073743) 

• 174 32921tfU 

_ -0 . 2434 18<554 + 0. 0 19 < 50 *3743 ^ 0012^302083 

-174 3292180 


Series Representation of 



1 


If the cone radius becomes larger than that given in the example, a point will be 
reached where computations by equation (B27) will not give a satisfactory engineering 
answer. While equation (B28) as shown is much better, it is not foolproof either. At 
large R the term ^/r/Rq - 1 is the subtraction of nearly equal numbers. A series 
representation can help this term too. 



Now using a binomial series expansion on the square-root term, 
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In equation (B29) the factorial 


? 

is defined as the product of n term* which aft trjit r»f*htttt 13 *n ! 2 for all wt* 

gers n from 1 to n. 

The ratio between aerie# term# t» 


2 p • 3 H ' *0 
’ ** «0 


so the series obviously has poor convergence properties as (ft • Rq)/Rq approaches 1. 
However, as (R - Rq)/Rq approaches I, the normal procedure of evaluating ^r7k ^ - 1 
gives good precision, since 1. 414 -1=0. 414. Therefore, If a limit criterion on the? 
loss of precision is set at one significant figure, the range of \/R/Rq is 
0.9< ^R/Rq sl.l to keep ( ^R/Rq - l) > 0. 1. This restriction on ^R/Rq corre- 
sponds to a maximum 


*-«o 

*o 


= 0.21 


With a limit on the variable in the series, an evaluation of the number of series 
terms for a desired computational precision can be made. The series coefficients for 
the first nine terms are shown in table II. For (R - Rq)/Rq = 0-21, the first term is 
0. 5 (0. 21) = 0. 105. The ninth term is 0. 01091(0. 21) 9 = 0. 867x10 . This gives a ratio 

of about 10 7 between the first and last terms for the worst case. Therefore, an appro- 
priate equation for the stated criterion on an eight-significant -figure computer is 
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Combination of Terms with Further Lse of Trigonometric Series 

Equation (B28) is in a form that can give adequate precision provided we use enough 
terms in the series representations. Let us look at the sine series term 


2(RqC - sin Kq)cos 


K - K, 


2 sin 2 1^5 -- 1 I*'* 0 ' 


3! \ 4 


/ 5! \ 4 / 7' ; 4 1 


+ . . . 


(B31) 


At no other place in equation (B28) are the trignometric functions of (k - *,q), 4 or 
(« * Kq)/8 use< *, so they can be expressed in series form too if they combine in a decent 
manner. Note that 


. 2 * *0 . K " K 0 
l sin = 1 - ~ os 




\ _ 1 / " , 1 l K ~ K o \ 1 / * ~ *o \ 

2 \ 4 / 4! \ 4 / 6! \ 4 / 


2 4 0 
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Substituting this series into equation (B31) yields 


2(RqC - sin k 0 )cos — 


= 2 (R^C - sin Kq)cos 


( 1 . - /j_.i n/LlM 4 + /j_ . i \/* - K o\ 6 . /± j_\/ K _lo\ £ 
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~ - 1 ^ - « 0 J 5 - 1^ ~ *0 ^ ^ 7 - 1 ^* ~ K o J 9 - 1 ^ ~ 


Expressing cos(k - Kq)/ 4 in series form too yields 
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Number of Trignometric Series Terms Needed 

The number of series terms needed for a desired computational precision is de- 
pendent on the magnitude of the series variable (k - Kq)/ 4. For a selected precision 
criterion, the maximum magnitude of (k - k q )/4 can be computed for a specific number 
of series terms. For example, the sixth series term is 


11 - 2 11 /* -*0 
12! \ 4 


The ratio of the sixth series term to the first term 


2 f K ' K 0\ 


3! \ 4 


11. 2 10 * 3! ( K ' K 0 S 


For an eight-significant-figure computer, a maximum relative error of 10 should be a 
reasonable precision criterion. So for 
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m-* 


11- 2 10 - 3! /* " K 0 \ l ° s 1q -7 
13! 


K - K, 


■< 0. 6258 rad 


that is, \k - Kq! < 143.4°. For turbomachinery, « - Kq will almost always be less than 
140°, so fewer than six series terms usually will be needed for the selected precision 
criterion. However, the potential saving is hardly worth the extra logic, so six series 
terms are always used. 

The nesting principle is used in calculation. A specific coefficient can be deter- 
mined as the ratio of the n to n - 1 series terms 


j)n+l (2n - l)^ 211 ' 1 ^* ' K o \ 2n 
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The series can be expressed as 


2(RqC - sin Aq)cos 


• ■*= - - ^ t p) 2 { - . ^/]j) 


With the application of the preceding equation, the working equation for the sine series 
term of equation (B28) becomes 
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Number of X2 Series Terms Needed 

Th#> r» muinmg series in equation (B28) to be investigated from a precision stand- 

0 o 

pmni is* the une containing the terms, where is defined by equation (B26). The 
srfjrt in >»! thr form 


xr xi x\ xl 
+ -1 + -1 + -± + . 
3579 


v 2n 

+ 2 
2n + 1 


The ratio at dm term to the previous one is (2n - l)/(2n + lJXg. At large values^of n, 
the coefficient approaches 1. So for the series to converge to a finite value, JXg | must 
be less thaa 1 However, if |x|| is less than 1/2, the series converges to a value no 
larger than twice the magnitude of the first term. The number of terms reeded in the 
senea to meet a precision criterion depends upon how much less than 1/2 the magnitude 
of x| is. To get an idea of the magnitude of x| in turbomachinery, a search for a 
maximum value of |x|| can be made. 

Since X? is a function of several variables, it would be helpful to have more infor- 

& A 

mation about the variation of in order to conduct an appropriate search for a maxi- 
mum value of | x| I . For a start, note that C always will be finite for turbomachinery. 
Then by equation (4), k = k q when R = R Q . When k = k q , xj = 0 by equation (B26), so 
it is shown that xiUo when R = Rn. Thus, a maximum |x«| never occurs at R = R Q . 


mum value of jXjj . For a start, note that C always will be finite for turbomachinery. 
Then by equation (4), k = k q when R = R Q . When k = k q , xj = 0 by equation (B26), so 
it is shown that x|=0 when R = R()- Thus, a maximum |x|j never occurs at R = R Q . 
Also, by implication, an effective way to search for maximum jx^ | may be to differ - 
entiate Xg with respect to R and inspect for the location of any zero slopes. 

Before differentiation of Xg with respect to R, note that k is a function of R. A 
differential relation between them can be obtained from a combination of equations (1) 
and (3). 


dR cos k 


Now proceeding with the differentiation of Xjj as defined in equation (B26) 
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However, from equation (4) 



When R is within the practical turbomachinery limits cf Rq/2 < R < 2Rq, the 
values of the group of terms in either the numerator or the denominator of the last term 
in equation (B35) will never be zero. The conditions R = Rq and |RqC - sin Kq | =1 
yield zeros for dXg/dR, but these both occur at X* = 0. Therefore, the conclusion is 
that the variation of x| with R has no maximum or minimum at R * Rq- Since X g 
is also zero at R = Rq, the maximum Jx^ j occurs at minimum or maximum R. This 
means that the maximum magnitude Xg can always be found at minimum or mzjcimum R 

for any combination of the two constants RqC and *q. 

In table in, values of jx^j are shown over the complete spectrum of 

RqC - sin k 0 for a k q of 70°. The constant C is negative, as it usually is in turbo- 
machinery, because k normally decreases with path distance from the inlet reference. 
At the lower magnitude values of RqC - sin Kq, the radius ratio reaches a limit first, 
so Ak is less than the imposed limit of 140°. At the higher magnitude values of 
RqC - sin Kq, the Ak limit is reached before the radius ratio limits. The use of such 
a large Ak limit requires the choice of a relatively high Kq to keep both Kq and k 
within the jjr/2| limit. It turns out, however, that the choice of k q is not important. 
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The overall maximum value of 


occurs at the very large jR^C - sin Kq| values. 
And at these very large |RqC - sin Kq| values, the RqC term completely dominates 
the trigonometric functions of Kq. So the overall maximum value of jx^j is 0.4903 for 
any value of Kq that can give a k - x n of -140°. 

Since the maximum value of 


Xgj is less than 1/2, the series (B33) is known to al- 
ways converge to a finite value which is less than twice the magnitude of the first series 
term. The number of series terms needed for a specified precision, of course, depends 
on the magnitude of X?. The number of terms needed to give a relative error of about 
10 is shown in table IV for the range of Xt. 

i o i ^ 


For normal usage, j X 2 [ usually will be quite low; so not many series terms are 
needed. However, as many as 23 may be desirable for special cases. For good pro- 
gram efficiency, the number of series t- rms used was made a function of the magnitude 

of x\. 


Range of Applicability for the e Equations 

Equation (B28) is a satisfactory form to use for the vast majority of e - €q calcula- 
tions. However, it eventually becomes plagued with the subtraction-of-nearly-equal- 
numbers problem for certain parameter combinations. Fortunately, this occurs as very 
simple solution forms are approached. The first of these is |c| « 1, for which equa- 
tion (B12) is the solution. The second is 


R - Rn 


Rr 


« 1 


In this case, equation (9) becomes 


de s 

R 
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Kq + C(S - S Q ) 

= sin — ds 
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where 
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Using the sine series of equation (7) yields 



(B36) 


The approach used to establish when to use equations (B12) or (B36) in place of 
equation (B28) was simply to set up a computer program and calculate € - € Q with each 
of the equations over the spectrum of constants. The reference value at each point was 
equation (B28) calculated in double precision with the necessary extra terms in the 
series. Equation (B28) gives the best accuracy except for very low Ak and very high 
R q /As. However, enough points were used in these questionable regimes to reasonably 
well define parameter values at which a switch of equation should be made for better ac - 
curacy of computation. The study showed that by the choice of the best accuracy form of 
equation, c - e 0 can always be calculated with a relative error of 10 or less on an 
eight-significant-figure computer. The specific parametric values for the switches are 
shown in table V. In the program the computation is for R Ac rather than Ac . Thus, \ 
even though R approaches infinity, a physically meaningful and accurate value of the 
circumferential component of a path can be obtained from equation (B36) with R m 


% 
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4 

transferred to the left side of the equation. The comp station of ?h» -onu radial uio rio- 
tonal) and circumferential t j (’ouipoii* nts for a juth are made in subroutine 
EPS LON. 
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APPENDIX C 


DEVELOPMENT OF CUBIC INTERPOLATION EQUATION 

Let y be the dependent variable at some independent variable location x. The 
general cubic polynomial lor y is 

y - a + bx + cx 2 + dx 3 (C 1) 

To keep the cubic coefficients small in applications, redefine the independent variable as 

I X = — - 1 (C2) 

f x 2 

where x 2 is the independent variable at the second point of the four-point sequence to 
be curve fit. Thus, the general equation used becomes 

y = A + BX + CX 2 + DX 3 (C3) 

The dependent variable v is known at the four points, so there are four equations in the 
four unknown coefficients. At the second point, when x = x 2 , X 2 = 0; so 

A = y 2 (C4) 

•The other equations are 



y x = A + BX j + CX^ + DX 3 

(C5) 

% 

y 3 = A + BX 3 + CX| + DX 3 

(C6) 


y 4 = A + BX 4 + CX 2 + DX 3 

(C7) 


Subtraction of equation (C4) from each equation (C5) to (C7) gives 

lill l = B + CX, + DX? (C8) 

X, 1 1 
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y 3 ' y 2 2 

— - B v CX 3 + I)X 3 


(C9) 


y 4 2 2 

— - B * CX , + DXj 

X 4 4 4 


(CIO) 


Using equation (C9) for each B elimination gives 

fh -it *3 - H\ 1 


Xj x 3 I - ^3 
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The equations for the cubic coefficients can be expressed as 
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APPENDIX D 


DEVELOPMENT OF INTEGRATION EQUATIONS FOR A CERIC SPLINE 
FIT OF BLADE-SECTION POINTS 


Development of Splint- Equations 

The spline curve tit used in this application is a specialized form of that presented 
in reference 7. For completeness, this particular development begi is with a summary 
ui the basics from reference 7. The knowns are x R and y R for k systematically 
spaced points on a blade surface, where x R is a coordinate approximately along the 
blade-segment chord and v R is the normal coordinate. The coordinates of the transi- 
tion point, x t and y t , are also known. The transition point is used in its proper place 
in the surface array if its relative distance to the nearest surface point is greater than 
10 percent of the corresponding increment between the systematically spaced points. 

The surface points are fit with piecewise cubics between the points. The joining 
conditions between cubics at the points are continuous first and second derivatives, ex- 
r,-pt at the transition point, where the second derivative is allowed to be discontinuous. 
Between points the second derivative is varied linearly so that a general y" can be ex- 
pressed as 


..T * 

V 


-= y 


k-l 


x k ” x 
— — + 

x k ' x k-l 


x ~ x k- 1 
x k’ x k-l 


for x R _ 1 -x-x k 


(Dl) 


Integration of equation (Dl) gives 


1 

x k " x k-l 





+ c. 


(D2) 


Integration of (D2) gives 


y = 




+ C jX + C 2 


(D3) 

N 


In equation (D3) y - y R . 1 at x = x k-1 and y = y R at x = x R . Substitution of these val- 
ues in equation (D3) and sob.- -tion of the resulting equations yields 

'4 
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C 1 ■ 


x k ' x k- t 


y _ y _ y" ^ k'l 'k- l\ M ^ k X k‘ X k-l ^*1^ 

yk >k -* k ‘^T 3 — Tj' yk \f~ rJ 


(D4) 


and 


c - = 1 {vh - x i-.- i y k - Vk ' 1 

x k " x k-l 


y k-ih - ~A + £(7 - x k-n 


(D5) 


Substitution of equation (D4) into (D2) yields the general equation for y' 


y’ = 


"T-k-Vr'k-i 

■ ViL 


(X k - X ) (X - x k _^ 


* y k 


* ( VVi' 


Cl - »k 


(D6) 


Substitution of equations (D4) and (D5) into (D3) yields the general equation for y 

y k< x k - x k-i> 


y k’-l (x k ' x>3 * y k 
6(x k - *k 


.' ( x - x k-1 ) 3 ^ f y t 

-1> L X k ‘ x k-l 

J 3 .- J 

[ x k ~ x k-l 


(x ‘ x k-l> 


y k-l* x k ' X k-P 


(x k - x) 


(D 7) 


Joining Conditions for Curve Segments 

At the junctions between the cubic pieces, die slopes are the same; that is, 

y’<- <(-)) = y'( x k(+)>- ^ so y"( x k(-)) = y, ^ x k(+)^ exce Pt at the transition point. So at a 
point x k other than the transition point, 


y k = 


x k ‘ x k-l 


y k " y k-l - y k-l 


(\ - xj .. (x t - X L 


y k 


■Z 


+ (X k - x k _ 1 ) 


y k-l " y k 
6 


x kU - x kL 


y k + l - y k " y k 


t« ^ X k+1 " x k^ .... ( x k ‘ x k^ . .. , y k " y k+l 


y k+l 


+ (x k + l ‘ x k> 
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Theretore, 


>: k ‘ \ 


-A .. 

j'k-i * 


■\+] " x k - 1 1 


Vi. 



y k+i- y k y k- y k-i \ 

Vl ‘ x k x k x k- 1/ 


a k-l y k-l + b k-l y k + c k-l y k+l = d k-l 


(D8) 


When the transition point is considered as one of the points of the array k, the equation 
for the cubic junction at the transition point is 

/ x t - X k-l\ / x t ‘ x k-i\ „ / x k + l ‘ x t\ / X k+1 * X t\ „ _ / y k+l ~ y t _ y t " y k - l\ 

+ (— [ 6 ) y ™ (x k+1 -x t x t - x k .j) 


a t y k-i + 2a t y t(-) + ^Vtu) + b t y k + i = d t 


(D9) 


Additional Conditions Imposed 

The unknowns in equations (D8) and (D9) are the second derivatives at the known 
points. For the k points, there are k - 2 cubic equations. Also at the transition 
point, there are two y ' values at one point; so three more equations are needed for a 
solvable set. The normal procedure is to specify end restrictions for two of the equa- 
tions. For this application, it is probably best to specify a curvature relation. Since 
the blade elements are circular -arc -type segments, the blade sections normally also 
will be nearly circular arcs. Thus, a reasonable end condition should be specification 
of end-point curvature equal to that of the adjacent point. However, curvature is 

y 1 '/ll + (y’) 2 j ^ , where y’ is an unknown too. So a direct solution, if possible, is a 
little more complicated than is justifiable. Alternatively, a three-point circular-arc 
fit of the end points was used initially to determine a factor relation between the end two 
y ,! values so that the set of equations could be solved with the direct approach. 

The equation for a circle is 


(x - a) 2 + (y - b) 2 = R 2 

From differentiation of equation (DIO), the slope is 


y* = 


x - a 
y - b 


(DIO) 


(Dll) 
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Since only the equation for y f is needed, it is not necessary to solve for R. However, 
the known conditions are coordinates of the three points, so R must be eliminated from 
the three equations in the three unknowns a, b, and R. When the squared terms in 
equation (DIO) are expanded, R, a*% and are eliminated by subtraction of the equa- 
tions applied at the three points. If the equation for the center point of the set is used 
in both subtractions, the resulting equations for the desired constants can be expressed 
as 


2b _ ( x 3 ~ x 2^ x l " V ~ ( X 1 ~ x 2^ x 3 ~ V + ( y 3 ~ y 2^ x l " x 2 ) ~ ( y l ~ y 2) x 3 * x 2 ) 

(y 3 - y 2 )^i - x 2 ) - (yi - y 2 H x 3 - x 2 ) 

_ x i * x l + y i " yj ~ ~ y 2^ 

X 1 ‘ x 2 

When the constants are substituted into equation (Dll), the general slope equation can be 
expressed as 

(x 2 - - y 2 )(2x - x t - x 2 ) - (x 3 - x 2 )(y 2 - yi )(2x - Xg -x 2 ) + (y 3 - yi )(y 2 - y x )(y 3 - y 2 ) 

(x 3 - x 2 )(y 2 - yi )(2y - y % - y 2 ) - (x 2 - XjKyg - y 2 )(2y - y 2 - y 3 ) + (x 3 - Xj)^ - x^x^ - x 2 ) 

(D12) 

The application of y* is in the factor relation between y" values which yields con- 
stant curvature. So for = C 2 


y'i 



3/2 





3/2 


and 


y'i - vit'i] 


where 
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1 f [y l ] 


1 T ( >2 )2 


3 2 


1D13) 


The same procedure, of course, is used at each end of the surface curve. 

The third additional equation is needed at the transition point, where there is a dif- 
ferent. curvature on each side of the point. The condition is imposed through a curvature 
ratio at the transition point. The particular curvature ratio is calculated from a three- 
point finite difference calculation on each side of the transition point. 


C R ” 


yk+i 


y’k-i 

1 + (y k+l )2 
» - 


3/2 


' y k + l y fc+l ~ y k+2 


- X 


C R = 


k-rl 


*k+l ' x k+2 


L 


h ' x k+2 




y k-l ‘ y k-2 y t ~ y k-l 


i 


* y k-i (x _ x o) + Ifei 

' x k-l x k-2 ; 


y k 2 


- x. 


'k-l 


: k-l “ x k-2 


V 

(x » * ^ Z - ’ 

j *t X k-2J 


2 x 3 /' 2 

\ 

\ 


x k-l ' x k-2 


x t ' x k-l 


\ 1.0 


x k-2 * *t 


.lpsa3 

- "i 


y* > y k +2 ■ y k+l ,, 

^ x k+2 ' W ( 


x k+2 ' x k+l 


-fc} j 


_ y tU) 

y U-) 


(D14) 


The curvature ratio is equal to yJ5 + /yg.) because the slope is the same on both sides 
of the transition point. Since this curvature discontinuity is computed by finite differ- 
ence methods for interpolated points, it was judged that a better overall surface curve 
representation of a blade section is obtained with some smoothing of the discontinuity. 
In the program, the magnitude of the C R used is the 0.7 power of the C R obtain eu 

from equation (D14). 


Method of Solving for Unknown v" 

There are now enough equations to determine all the unknown y”. Usually, the 
tridiagonal matrix is solved by Gauss elimination of variables from one end of the curve 
to the other end, followed by backward substitution. However, the imposition of the un- 
usual condition at the transition point of the curve can cause some complication. To al- 
low for some versatility for each change of the transition-point condition, a modified 
approach was used. With the modified approach, Gauss elimination is used from both 
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ends to the transition point, the transition condition is applied, and backward substitu- 
tion is used to each end. In parametric equation form, the equations from an end are 


l» , t » fl , 

a l y l + V2 + c l y 3 =d l 
a 2 y 2 + b 2 y 3 + c 2 y 4 = d 2 
a 3 y 3 + b 3 y 4 + c 3 y 5 = d 3 

a k y k + b k y k+l + c k y k+2 = \ (D15) 


For the Gauss elimination, it is desirable to set up a standard form. Let it be 

y k + e k y k+l = h k 


(D16) 


Therefore, for k = 1, e^ = -fj and hj = 0. Application of equation CD 16) to (D15) gives 

V h k ' e k y k+l } + b k y k+l + c k y k+2 = d k 
So, 


(b k " a k e k )y k+l + c k y k+2 = d k " ^k 


v »» . / 'k 

y k+l + 


b k “ a k e 




d k ~ ^k 
b k " a k e k 


y k+l + ^ e k+l )y k+2 “ h k+l 


So, 


k+1 


b k " a k e k 


and 
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k+1 


d k " a k h k 
b k ' a k e k 


The same procedure is used from each end, so at the transition point the equations are 

y'k'-i + e k-jX<-) * h k-i (m7) 


and 


y k + i + e k+i y t(+) - h k+i 

Using equations (D17) and (D18) in equation (D9) gives 

a t (2 ‘ e k-l )y t(-) + b t (2 ‘ e k+l )y t(+) = *1 ‘ a t\-l ' b t h k+l 

Equations (D14) and (D19) are two linear equations in the unknowns yjf_) 
they can be readily calculated. The other y" values are found by back substitution 

through the (D16) sets. 


(D19) 

and y'^ + y so 


Area and Moments Integrals 

Once the spline-curve coefficients, y" values, are established, general surface 
points then can be located by using equation (D7) for the appropriate interval. The gen- 
eral equation can also be integrated to give areas and moments for the piecewise seg- 
ments. These can then be summed to locate the blade-section center of area. The de- 
velopments for the following integrals are for a segment with the y distance being from 
the y = 0 axis to the curve. 


i 


x 


1 


* 
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A * /** k P dv dx : f W v dx 

\i y ° Ac-.' 


/ lc pk-i (x k • - )3 ♦ y k (x - *k-/ r a 

^ H'Vi 1 [ x k x k-i 

"k-i 


\ ix k • x k-i> 


u - Vi' 


>'k- 


: k-i 6 I J 


I< x k ■ 51,4 * y k ,(x • v/ , 

y k y k !x k x k-l ) ' 

, .2 
x - Vi' 

y k-i y ki ix k' x k-i ) 

■A-'-n' 

24(x k - x k-l ! 

x k' x k-i 6 

2 

\-\-i 6 

* 


c k -vi> 


24 


(D20) 


Ax 


A Adydx Ayxd* 
A k-1 A k-I 


r y k-i (x k - x > 3 * y k u • x k-i |3 , 

y k 

(x - V,i * 

Vi yk-i ( *it - "k-iH 

t 6l \- S-i' 

.VVi 6 

x k ‘ V 1 6 j 


k-l 


f y k- 1 [«*k ' 11,5 • 5x k lx k - x > 4 ] ♦ y k[ 4 " - V r 5 * 5x k- i (x • x k- i 1 

4 ] r > k (x k x k-i'iA 3 x 2 . \ 

’ y k ! Vi'VV 

\ l20 < x k Vi> 

|VV. 8 3 2 Vlj 

y k V k-l 6 




• 2 *k* v 1 , *yk-i (x k* 2 v 1 » - 


^k • Vi> 
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[ > 'k (8x k ♦ ~ x k- 1* * y i'-l l7 *k* 8x k-l’]| 


Ay = 


r\ /* y r\ 

IJ^L 


y dy dx = / 2- dx 

Vi 


■ r_v.. v.i] ,,. r ■».. . »£.!<■>- ,1 

2 / ^ «»«-W l*k-Vi • J ‘ Ivvi * J J 

A-l 


dx 




^k + Vk-i +y k-i - [ 8( Vk ^k-i^i) +7( Vk-i + yk-i y k»] * j { 16 [ (y k ,)2 * (y k- I )2 ] ♦ 3ly ic’ y k-i} 


(D22) 


Other spline segment integrals that are needed for the terminal calculations are 
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ixy ( i xydy<h= y* Xk ^ xdx 

•'Vl ** ^k-l 

- Jyk-I (3x k-1 < V + y k[ 2(x k-i + VVi + y k (x k-i + ’V] • k I 5 k “(vi[vi (5y k-1 + 4y k> ♦ 3x k ly k-i + V] 


24 


♦ y^sx^^'.j ♦ y k ) ♦ V 4y k-i ♦ 5y k>] ' (X>C .eg { (y k- t )2(35x k- l 4 29x k> + y k [ 62y k'-i (x k-i + x k» * y k< 29x k-i * 35x k> 


(D25) 
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£: £ ■' * * C. 


K 1 [ y k-l ,25x k + 44x k x k-l + 54x k x k-l * 52 VVi + 35x k-l ! * y k 35x k * 52 'kVl * 34x kVl * 44x K*k- 


Li * 25 vi)]| 


(D26) 


< >1 [.3 . 


A- 1) ' K-! y k! 3 'k ♦ 6 Vk-l - * x *-l ! * >k-l>k( 6x k » e Vk-t • 3 x k-l'i * >k' :0x k * 4 x k x k-I * x k-l) 


'k a k r / 2 


y k-l y k-l( 9x ii * 2fix k x k-l * 35x k-l) * y k-l y k ( 9x k * 22, Vk-t ’ 25;l k-l) * y k-l y k y k-ll 22x k * 36 Vk-l * 26x k-l'' 


* y k-l y k y k ( 26x k * 36 Vk-l * 22x k-l) * y k y k-l( 25x k* !2 Vk-l * 9x k-l) * y k y k ( 35, k* 2fi Vk-l * 9x k-l) 


2 r 

(“ir X |t_ J I ,, 9 ' 7 ? 

■ .a ~ 1 y k-l (y k-lH t9x k* 44jc k jx te-t - 42x k 


k-i) + y k <y k'-l )2 ( 27x k * 38x k x k-l ^ 22x k- 1) + y k-l y k-l y k(‘ 




y k y k-i>k’f 66x k 40x k i) * >vi |y k |2 K * B -kVi * 21 iii * >V'k i2 K * 4ta kVi * 19 i Li) 


;6 k (y k-t )3 ( 52x k * 102x k x k-l * 77,: ;l) * iv k- l' 2> vj 171x k " 29<x k x k-l * 195x k-l) * V k- l' y k )2 ( 195x k ’ 294x k x k-l * 17lx k-l) 


< y K |3 ( 77x k * l02 Vk-. ' 52x k .) 


(D27) 


y4 dy dx 


k v 5 

2 — dx 
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where 
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>k-l (x k - x)3 + y k (x • x k-l )3 

y = + 




- >: 


k-l' 


x, - x, , 
k k- 1 


( x - x k . 1 ) 


'k-: 


k - r k 


(- X lr ' X L- . 1 1 


Vi 


(x k - X) 


D7) 


Since expansion and integration of this equation is very complicated, a simplification was 
used. Note that for axial-flow compressor blade sections, the maximum value of x 
(chordwise direction) with respect to the center-of-area reference is always greater than 
the maximum magnitude of y. So dx dy will be larger than dy dx. Consequently, 

J'J' x^ dx dy over the blade will always be greater than dx dy. Thus, the inte- 

gral under consideration is essentially a second-order term for the blade-section twist 
stiffness calculation. The use of a reasonable approximation in the computation of a 
second-order term should not significantly lower the accuracy of the computed twist 
stiffness. The approximation used is an average y" for the increment. 

The general equation for y by substituting y" for y k _j and yjj in equation (D7) then 
reduces to 


y = 


y k (x - x^j) + y k . 1 (x k - x) y"(x - x k _j)(x k - x) 


x k - x k-l 


Integration for gives 


K k- V 
30 




- vi> 


i> 2 / a 2 23 y ,,(x k x k-i > 2 f 2 2 y" (x k' x k- 

- - — hi * 9y k y k- 1 + 9 vL i + 5 y k-i j 5y k ♦ 8y k y k- i +5y k-i j~ 


Sy k ♦ 8yJy k .j + 9y||y 2 .i ♦ 8 Vk-i * 5y k-i 


,2 


y k + y k-l 


y " (x k- x k- l V 

22 
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APPENDIX E 


DEVELOPMENT OF EQUATIONS FOR bLADE- SECTION END AREA 
AND MOMENT CORRECTIONS 

The spline integrals properly summed give the major part of the moment values for 
a blade section. The remaining parts needed are obtained from end-circle corrections. 
The geometric shapes used for the end corrections are the sector of a circle and two 
trapezoids (fig. 5). 


Area and Moments of End-Circle Sector 

The blade-end-circle size and location are determined from the blade-section sur- 
face end-point coordinates and slopes, which are known from the spline curve fit of the 
interpolated surface points. In general, the four conditions of two points and the slopes 
at the points are an overspecification for a circle, which is a second-degree equation 
with three constants. Since preservation of surface continuity is of first-order priority, 
the compromise is made with slope. The condition imposed is equal slope difference be- 
tween the end circle and the surface at the suction- and pressure-surface end points. 

The geometric placement of the blade-section end circle is shown in figure 11. 

To give r L = r U; the equations for the end-circle center coordinates are 

* C = *U + r u sin(«u + Ak) 

y c = y y - ry cos(Ku + Ax) 

and 

x c = X L ' r L sin(K L + A *> 

y c = y L + r L cos(k L + Ax) 

Eliminate x and y by subtraction: 

v L 

X U ' X L = - r u[ sln (Ku + Ak ^ + sin ( K L + Ak 0 
y u - y L = r uD 0S ^ K u + Ak ) + cos (“ L + Ak 0 


ii 


m 


Eliminate r,. by division: 

(Xy " x l^[ cos ^' 1 e + ^ CO * ( "L T " > L »[ s ‘ n ^U * T s,n ^ K L + Ak 0 

Expand the trigometric function to get the solution for Ax: 

(Xy - x L ) (cos Xj j cos Ax - sin Xy stn Ax + cos Xy cos Ax - sin xy sin Ax) 

= -(>'y * y L )(sin Xy cos Ax ♦ cos Xy sin A* + sin cos Ak + cos Xy sin Ax) 

[(Yu - y L )(cos Xy + cos Xy) - (Xy - x L )(sin y + sin Kyjjsin 

- -[(x u - x L )(cos Xy + cos k l ) + ( y y - y L )(sin Xy + sin Xy)]cos Ax 


tan Ax - 


sin Ax (X U ~ x L )(cos *u +c08K l) + ~ y L )(sin x U ^ s1pk L ) 

cos Ax (Xy - x L )(sin Xy + sin Xy) - (yy - y L )(cos x y + cos Xy) 


(El) 


For computing purposes, the more appropriate equation for ry is 


r = r,T = 


yu‘ y L 


U (cos Ky + cos Xy)cos Ax - (sin Xy + sin Xy)sin Ax 

because yy is never equal to yy, whereas Xy may equal Xy. 

The area of the leading-edge end-circle sector, which is shown in figure ’l. is 


(E2) 


) (E3) 


/ jr+d L r x L 2 _2 

/ r dr dtf = J — M = y (» + « L ' 

Jo \ 


where t>y = Xy + Ax and 8y = Xy + Ax. The first moments at the end-circle sector 


are 
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A \ - y (COS • l; 4 ros :' L ) 
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/ l+d L px 

/ + r 

-u ^ 


cos ‘Or dr d9 


P^-\ 


- r cos d d( # 


2 ,+d L 3 
y — 0 + — sin 0 

C 2 , 3 

( U 


ir+t> 


L -3 

= Ay„ (sin t> fT + sin t? f ) 

C o U L 


(E5) 


'U 


A similar development for the trailing edge gives slightly different results. How- 
ever, a general similarity is restored by using the negative of the trailing-edge area, 


"U ' v) 


(E6) 


in the preceding and following moment equations. This procedure gives negative values 
for all trailing-edge area and moment values, but it is a convenience in the program to 
use the same coding for both ends. 

For the terminal calculations, higher moments are also used. Such equations for 
Car. end circle follow: 
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n + *J 
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r 2 '' 

- I + — )A - 
c 4 


2r^x 4 

- (cos + cos 0^) - — sin (4^ - d^)cos(0y + 9 ^) (E7) 

3 ® 
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Area and Moments of Trapezoids 


Ln addition to the end circles, values for the two trapezoidal pieces (as shown in 
fig. 5) are also needed to properly account for the blade-section ends left from the spline 
integrals. The following equations for the trapezoids use the nomenclature of figure IT. 

A = - *V ( yu + v + 1 1x l - -v (y L + v 


- (x - X,.)(V,. - V, ) + - (x T - X,.)(V. 4 V ) 

2 c l •' u L/ 2 L “ L ' c 


(E13) 


Ax - (x - X»*)y_ ' + ' *I?K>TT ‘ y 


c a- ,J c 2 2 c u u c 3 


2x x x + x L 

— — ‘ < X L * V y L ““ 


2x c + X L 


+ \ (x L ‘ x c ,(y c * y L> 3 


- [y c ( 2 » c + V + yu (2x ti * x c*] + L . c [ y L (x c * 2 x l* + y c‘ 2x c + x l(] 


(Ei 4) 


y r , y n + 2y y L J 

Ay = ( x c - x u)y c — + - ( x c - x u )(y U - y c> + (X L • x c )y L — + 2 (X L ‘ V 


x ^ y c - y L> 


y c + 2y L 



+ y U y c + y c 


2\ 




y c y L 



(Elo) 


Higher moments for the trapezoidal-shaped pieces are needed in the terminal calcu- 
lations. The values ot these highei moments were found by integration. For the trape- 
zoid with a corner at the suction-surface -curve end point. 


y = y c + (-' - x c ) 


y u ' y t 


X U ” x c 
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▲ 


A 


The form of this equation for integration is a + bx where 


a = y„ - x„ 
J c c 


*u-*c 


X U - x c 


and 


b .ani 

x U- 5t c 


yy 


f* c f y x 2 dy dx ♦ f y x 2 dy dx = f c yx 2 dx + f L yx 2 dx 

X,, r 


x 3 dx 


• [f- ■ - es a;- [<’• • ' -K a 

■ <■« - (»c - «. *w * 4) * i ^ n*c *w ♦ -a • * -a} 


(*L ■ »c h (> c - * c * -L*c * *?) * 4 ^“7 K. * K * v, * *?K]} 


(*C ■ x n )y 


— (*c + x c x u + x u) + Xc(y ; 2 --- « + *c*U + 4 ) - yjL ~ X U 

♦ « ♦ vt * 4 ) - « ♦ vl * ■» * ^ * (Ei6) 
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appendix f 


DEVELOPMENT OF BLADE BENDING MOMENT EQUATIONS 
The centrifugal force on a blade mass element dm is 

dF dm a 
dF - dm ■ t 

For a thin blade section, this force is approximated by 

d F =£^cA 

A corresponding bending moment on :his blade element is 

dM - dF • L 


(FI) 


(F2) 


(F3) 


Bending Moment from Centrifugal Force Acting with a Meridional Plane Lever 

The net effect of centrifugal force on a thin blade section can be considered as a 
summed force acting at the center of area of the blade section. This force acting with a 
lever arm in the meridional plane can be expressed as 


dM = dF 


r - i , 


12 


tan A 


where A is the stacking-axis lean shown in figure 12. 


M a = 


/' 


^ tanA Ar(r - r h )dr = 
H4g h 


[ 2 J 

y 

“4g Pi 


Ar(r - r.)h 


tan A = (C )tan A 

a (F4) 


* 
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Definition of Tip Volume Element for Moment Corrections 


When the end streamlines are sloped, the previous summation is not complete. The 
wedge-shaped excess and decrement masses from the Up blade section should be ac- 
counted for because their centers of mass are far from the stacking axis (fig. 7). The 
material at the hub, for practical purposes, can be considered as part of the blade base; 
so no moment correction is made for the offset hub material. 

The reference plane for excess volume definition passes through the stacking -line 
intersection of the end of the blade at the tip (fig. 12). The height of an element of ex- 
cess volume is the radial distance from the local tip edge of the blade to the reference 
plane. The side surfaces of an element of volume are approximated by radial projection 
of the reference section shape. In the tip region, the blade camber is usually quite 
small; so a simple linear fit between the blade -section definition points was used. The 
resulting equation for the path between surface points is a line 


y t ( x - x k _i) + yi,_i C*i, - x ) 


y 


k-r-'k 


x k ' x k-l 


(F5) 


The moments are needed in the axial and tangential directions. Since the wedge ele- 
ments are also more naturally defined in an axial-normal coordinate system, the surface 
definition equations are redefined in the rotated coordinates shown in figure 13. 


- x cos > - y sin > (F6) 

n - x sin v + y cos (F7) 


The coordinate z is the new independent variable, and n is the new dependent variable. 
Tu get a relation between x and z, use equation (F5) in (F6). The result is 

x = z( -\- ;i k-i ) -t>k x k-i-yk-i x k )slny (F8) 

(x k- Vi )cos > - <y k->Vi )sln> ' 


Substitution of equations (F5) and (F8) into (F7) cr i s mu rotated form for n in terms of 
knowns and the independent variable 


B x k - x k -i> sln y + <y k - y k -i )cos 0 Z + y k -i x k - yk x k-i 

( x k - x k .!)cos y - (y fc - y k . 1 )sin y 


(F9) 


A 




\ 
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For integration purposes, equation (F9) is expressed as 


n = Az + B 

where 

A . u k~ x k-i )sin > * (y k - yR-i> cos > 
(x k -x k .i )co sr-(y k -y k . 1 )s i n r 

and 

D yk-i x k-yR x k-i 

(x k - x k .j)cos y - (y k - yjj.jJsin y 

Tip Correction Moment for Centrifugal Force Acting in Meridional Plane 

The bending moment associated with forces acting in the meridional plane is defined 
as positive in the counterclockwise direction in figure 12. The differential moment for 
the tip correction can be expressed as 

2 — 

dM = dm u) r l 

where r is the average element radius 

dM £ d(Vol)u> 2 ri 
g 

dM = — (n - nlz tan a dz w 2 r fz + (r. - r h )tan x] (F10) 

144g s p L 1 n 

The tip correction from the center of the leading-edge circle to the center of the trailing- 
edge circle is 
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* 


M 


*■ / 


•li* 


,7^ ,a " " l!, s - y~ r 'L' ‘ir, • >> 


,,. 2 wui , v ~ f r» 

144g J z , L *> - s 

n - 1 n - 1 


(A ;■ * B 1 1 / / 
P P J L 


1 r. 


r h” a,! 


!C!/ 


The integral is applicable between surface points after the equations f.u line s< ; tr.< res 
haye been substituted. Since the constants change for a point on either surfac. . the 
number of summation terms is 2k - 2, where k is the number of points or, ,-arh sur- 
face. The term r was removed from the integral because it is relatively independent 
of z for the integration increment between surface points. 



(Fll) 


The previous summation carried from the leading-edge-circle center to the trailing- 
edge-eircle center. The edge circles have the largest element height, so they are ac- 
counted for too. The approximations used are illustrated in figure 14. An end semi- 
circle is used, with the shaded areas considered to approximately compensate each 
other. The center of area of the end semicircle is 4r fc /3i7 from the circle center. The 
end-circle moment additions are expressed as 


>- ..2 




144g 2 


(z tan <>) 


4r e 1 

* J7 + (r t ' r h ),an A J 


F12) 
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The minus sign is used lor the leading -edge circle, and the plus sign for the trailing - 
edge circle. 

Stacking-Axis Lean Angle from a Moment Balance in Meridional Plane 

When equations (F4). (Fll). and (F12) are summed, the bending moment due to 
centrifugal force of the blade mass is expressed in terms of the lean angle X as 

M„ = D ♦ C tan X (F13) 

a a a 

The lean angle which will balance the axial component of the steady-state gas bending 
moment “ba is then readily available from the moment balance 

“ba^V 0 

“ba * D a ♦ C a Uu ' * 1 0 


SO 


tan X = - 


M ba 


+ D_ 


(F14) 


Stacking-Axis Lean Angle from a Moment Balance in r -9 Plane 

The procedure of determining a stacking-axis lean angle in the r -6 plane is similar 
to that used in the meridional plane. The bending moment produced in the t-9 plane by 
centrifugal force acting at the center of area of blade sections has the same form as 
equation (F4), 


M t = (C t )tan t) (F15) 

where C t is equal to the C of equation (F4). The moment is positive in the counter- 

t a 

rotational direction. 

For the tip correction moment, the differential moment arm is expressed with a dif- 
ferent equation; so it is necessary to go through a separate development. 
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clM - - J L — (n . - n )/ tan <> dz x 
144- s »> 


2 - r u s ♦ -h) , 

r +■ 1. 1 

2 


t - r h ,,an 




/ . A ^ ♦ B t / /j/ 


A^/ . - A/ . 


n-1 


A w ,2 ,3 ./Vv-Vp .2 , 2 , 

^ ! 'n n‘ n * 1 * :\*' 'n - ! ‘ r. - 1 f r " ' r/ 1 : - 1 ~ ‘ n- 1 ! 


,{sA 

S, - Ap ,< 2 2 B s • »V 

, <*r. T n'n-1 * Vl' t * Vl 


B s ' B p 

— T^ U n + Vl' - 


U t - r^itun ,*> 


= D , ♦ c <h lan 


J 

(F16) 


For the end semicircles, the equation is 


2z 7r r; 


Mdt 1 I s z ' tan ° [■ " e + tr ‘ ■ r| > ,ta ” ■'] 


(F17) 


When equations (F15), (F16), and (F17) are summed, the moment equation in terms 
of the tangential lean angle is 


Mj = Dj + tan q 


The gas bending mom nt is calculated with the opposite sign convention of the mo- 
ment produced by centrifugal force. Thus, the moment balancing equation in the r-0 
plane is 


“t • “bt = 0 
D, + C t tan q = 


tan >7 = - 


“bt - D t 


(F18) 
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Blade- Element Coordinate Adjustments Associated with 
Stacking- Axis Lean Adjustments 

The blade -edge coordinates change with changes in stacking-axis lean. These 
changes can be approximated by blade-element translations on the cone. Thus, the shift 
of blade -edge coordinates for a blade element is assumed to be the same as the shift of 
the slacking -axis intersection with the blade element. The geometry associated with the 
shifts is shown in figure 15, where \ n is the new stacking -axis lean in the meridional 
plane and Aq is the stacking-axis lean from the previous iteration. The equations for 
the three lines are 



r n - r o = (z n - z 0 )taD " 

(F19) 


z o- z h = (r o' r h ,tanX o 

(F20) 


z n " z h = (r n - r h )tan 

(F21) 

To eliminate 

z subtract equation (F20) from (F21). 



z n * z 0 = (r n ' r h )tan X n ' (r 0 ‘ r h >tan A 0 


Then, to el) a 

liiute r , use equation (F19) in the preceding equation. 

The z shift can 


he exprc ssed at> 


(r Q - r h )(tan A n - tan X Q ) 
n ® 1 - tan a tan A n 

The r shift from the use of equation (F22) in (F19) is 

(r 0 - r h )(tan X - tan X Q ) 

r - r n = - — — tan a 

n 0 1 - tan a tan X R 


(F22) 


(F23) 


The blade stacking-axis lean angle X is not directly stored in the program. It is 
calculated from stacking reference points at the hub and tip. Since the hub point is the 
fixed reference stacking point, it is necessary to relocate a point at the tip to conform 
with the new x. The new tip reference point will be assumed to lie on a line which 
passes through the old reference point with the slope of the tip blade-element cone. 
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oince tne up casing wall may be curv3d, the new tip reference point may be slightly off 
the physical wall; but this is of no consequence since the point is only used for a 
stacking -point reference. The equation used for z n - z Q in the program appears dif- 
ferent from equation (F22), but it is the one obtained by using equation (F20) in (F22) to 
eliminate A n . 
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APPENDIX G 


BLADE-ANGI.E CORRECTION FROM LOCAL STREAMLINE 
SLOPE TO LAYOUT -CONE SLOPE 

The differential blade-element-edge angle correction from a local direction a to 
the layout-cone direction is illustrated in figure lti. The equation used to express 
the relation is 


r dt» c 

tan k = 

C 


r do - r — (dr - dr ) 
3r 


din 

c 



cos a 3 o cos a„ sin a - cos a sin a 

C cd C ^ 

= tan k . r — 

cos a Sr cos a 


cos o c ^ sin(tt - a c ) 

- tan k . r 

cos a 3r cos a 


(Gl) 


In equation (Gl) the blade angle on the layout cone is expressed in terms of the a direc- 
tion angles, the blade-edge angle on the local streamline, and r(30/3r) Th» only un- 
known is r(30/3r), which must be determined from a fit of blade-element end points 
across stacked adjacent blade elements. Since the blade-element end points were set 
up in a common coordinate system in subroutine POINTS, the end points are curve fit 
directly for the slope r(dd/df ). Since for normal blading the slope is relatively low, a 
simple three -point parabolic curve fit was considered adequate. 

The curve-fit value, r(dtf/dZ), can be related to r(33/3r) through the directional 
derivatives associated with the geometry shown in figure 17. 
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r 


v 


(G2) 


r 


d_: 

dZ 


r 


dr 


__ dz 
z d/ 


i t • H 

— cos a +■ r — sin \ 
r ?z 


Another equation in terms of the known partials is the one tor the definition of the blade 
angle on the cone. 


tan k - r 


dc 

dni 


= r 


— 

3r dm. 


+ r 


co dr 
cz dm. 


cv . cu 

- r — sin 0 / + r — cos a 

dr cz K ' 


(G3) 


The elimination of dd/?z between equations (G2) and (G3) yields an expression for 
r(30/ dr). After some trigonometric manipulation, the equation can be expressed as 



= r 


d6 cos a c 
df cos(o c + X) 


- tan k 

c cos (a + X) 


(G4) 


Now there is a choice either of substituting equation (G4) into (Gl) so that r{d0 /dl ) 
is stored and used directly or of using these equations separately so that r(d0/dr) is 
stored. The latter approach was used in the program because of procedural considera- 
tions. First, note that it is not desirable to compute r{dd/dl ) as needed when calcu- 
lating successive streamlines because a different level of iteration would have been made 
on the ends erf the curve used for the fit. So instead, curve fits for r(d$/d l) are made 
after the same level of iterative adjustments has been made for all blade elements. 
Secondly, the direction of l changes during stacking-axis lean adjustments, so it was 
considered fundamentally better to save r(d0/ dr) between iterations since the deriva- 
tive direction is constant. Thus, the procedure in the program is to obtain r(df?/dr) 
values from equation (G4) with the curve-fit value of r(dd/d l). These r(dtf/dr) values 
are stored between stacking iterations so that they can be used in equation (Gl) when 
needed. 
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APPENDIX H 


DEVELOPMENT OF EQUATIONS FOR TORSION CONSTANT 

The torsion constant is a geometry parameter wh.ch is used for both stxess and 
Plate uni wist deflection calculations. It is defined in reference 6 as 


K = 


- F 


1 + * 


Sab 2 


(31) 


where 


F = 



t 3 dU 


A is the section area, t is the thickness normal to the blade-section median line, and 
U is the length of the blade-section median line. The blade-section geometry param- 
eters are illustrated in figure 18. 

Unfortunately, the blade sections are not defined in terms of a median line and thick- 
ness They are defined by 13 points on each surface. These points, however, have al- 
ready been curve fit for the purposes of determining blade-section areas and moments. 
The surface curves provide sufficient information to calculate a blade-section thickness 
everywhere. The trace of the median points of these thickness paths defines the median 
line. 

While this approach is good in principle, it is difficult to apply in the full differential 
form because the general equation for t is too complicated for the subsequent Integra 
tions. So instead, the principles are applied in a piecewise way from the surface defini- 
tion points. Specific thickness paths are calculated at the surface definition points. The 
median path passes through the midpoints of these thickness paths. The slope of the 
median line at these points is the average of the surface curve slopes at the end points 
of the thickness path. Then using the centerline path as the independent variable, a gen- 
eral thickness is defined by a cubic curve fit of the end thicknesses and the slope differ- 
ences between the suction and pressure slopes at the ends of the segment -end thickness 
paths. A more detailed description of the procedure follows. 
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Definition of Blade-Section Thickness at Pressure-Surface Points 


Let the piecewise segment junctions be at the pressure-surface definition points. 
At these points, the thickness path t, which is shown in figure 19, satisfies the angle 
condition 


a 


a 


"s + 


O' 


2 


(HI) 


On the suction surface, the point which satisfies this condition will generally be offset 
from the corresponding suction-surface definition point. The suction-surface point 
which satisfies the angle condition is found with a simple iterative procedure. For the 
first trial, the suction-surface point corresponding to the current pressure-surface 
point is used. The angle X is defined from a trial suction-surface point as 


x - x 

tan A = £ (H2) 

y s -y p 

The convergence criterion is then expressed as | a - A < 0. 0001. 

When the convergence criterion is not satisfied, the point adjustment mechanism is 
derived from an assumption of negligible suction- surface slope change for the adjustment 
increment. An equation for the new point along the suction surface is 


tan a 



An equation for the new point along the thickness path is 


(H3) 


tan <v 

d 



(H4) 


Upon elimination of y gn between equations (H3) and (H4), the equation for x gR is 


(y„ - yJtan + (x„ - x_) 

x = x +_ 2 s a P s 

sn s 1 + tan a a tan o s 


(H5) 


This value of x gn is used in the spline equation for the appropriate suction-surface seg- 
ment to get y sn and o s for the new point. 
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When the convergence criterion is satisfied, t is expressed as 




* 4A X sn x p^ + ^sn ' ^ 


(H6) 


Median Line Length of a Segment 

The thicknesses and their associated directions at the end points of a segment are 
used to define the segment centerline -path length shown in figure 20. The centerline 
path passes through the midpoints of the segment-end thicknesses. The straightline 
length between the points is 


_ V^p, k * x s. k ~ x p, k-1 " x s. k-p 2 + * y p, k + y s, k " y p, k-1 ~ y s, k-1* 


(H7) 


The path u k has an angle difference of ar a - « a k between the ends. If it is as- 
sumed that the path is a circular arc, the path u k is expressed as 


<* a k-1 " ®a k „ 
u, = 2R = 2 


l 

2 


or, 


a, k-1 ^a, k 

2 


k-1 ” a a k 
sin -£iJLi 

2 


k-1 ~ a a, k 


= l 


ft a,k-l ' ^a,k _ 1 /°a. k-1 ~ a a, k\ + _1_ / a a, k-1 ~ a a,k \ 

2 6 \ 2 / 120 y 2 / 


1 /°a, k- 1 ~ a a., k \ + 1 ( a a, k-1 g a, k \ 

6 \ 2 / 120 \ 2 / 


(H8) 


Definition of a General Blade -Section Thickness 
A general cubic equation for the thickness of a segment is 


100 


(H9) 


2 3 

t = a + bu + cu + du 

Two conditions for the evaluation of the four constants are known thickness at the ends, 
or 


t = tj^ ^ at u - 0 


(H10) 


and 


t = t fe at u = u fc (HI 1) 

The other two conditions come from the slope difference between the surfaces at the seg- 
ment ends. 


s k = ta n(°s, k " “p.k* 

tan a g - tan » 0 k 

(H12) 

Xttan«s >)t tano pjk 

They are expressed as 



8 = s k-l 

at u = 0 

(H13) 

s = s k 

P 

ft- 

C 

II 

c 

(H14) 

Application of the condition expressed by equation (H10) directly gives 



a ~ *k-l 


(H15) 


The derivative of equation (H9) is 


— = b + 2cu + 3du 2 (H16) 

du 

Application of the condition expressed by equation (H13) directly gives 

b = s k _j (H17) 

When the other two conditions are applied, the equations for the other two constants are 
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i' r 


(H18) 


2 s k-l + s k W ' - Vi “ V 


and 


d s k-l + s k + 2 ^k-l " t k ) 


u. 


*k u k 

The general equation tor t, thereiore, is expressed as 





• - 

1 + s k-l u * 

2s k-l + s k , 3 ^k-l " t k ) 

u 2 + 

s k-l + s k , 2(t k-l ' V 

4 

m 

2 3 

u k u k 


Integrals of t with Respect to du 
For the area of a segment, the integral is 




The integral for F for a segment is 


r n k / u k 2 3,3 

/ t* du = J f a + bu + c'i + du J du 

*+ A A 


0 0 

Some of the integration bookkeeping can be reduced by use of integration by parts. 


J' w dv = wv - J' v 


dw 


Let w = t 


dw = 3t 2 dt = 3t 2 (b + 2cu + 3du 2 )du 
v = u, and dv = du. Therefore, 


(H19) 


(H20) 


(H21) 
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/* u k 3 / 3 > / U k 2 2 3 

/ r du = (ru) n - / 3t^(bu + 2cu^ + 3du J 


)du 


The same procedure could be used on the remaining integral; however, at some 
point an integral has to be evaluated. The resulting equation is 


■{ “ ‘ 3 <*“ = K-i * 27t li*k - 27t k-i l k * -> 3 ‘k)^ 


k_ 

140 


♦ [K-i * ■'“k-i'k + 43t kK-i - K-i * ’“k-i'k * 97i kK]^ 

* [««k-i * «k )s k-i - w ‘*k-i * i k) 3 k-i s k * < 8t k-i * i8t k )8 9^ 

4 [( s k-l ' 8 k-l s k + 8 k) (s k-l " s k ; ] 


2 

L 

840 


840 

(H22) 


End-Circle Contributions to Integral F 

The major part of F for a blade section is obtained from a summation of the seg- 
ment contributions as determined from equation (H22). A minor addition is made for the 
end circles. The geometry for this is shown in figure 21. The independent variable for 
the end-circle integration u is referenced from the end-circle center. The limits of the 
integration are from r sin(<* 0 - arJ/2 to r. The local thickness is 

s> p 

t = 2 Yr 2 - u 2 

So the integral for an end-circle contribution to F is 




o 3/2 

- u^) du 


Let u = r sin d, so du = r cos 6 dtf and 
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«S + «p) - sin ^ a s 


o p ) [4 + cos(o s 



6 dd 


(H23) 
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APPENDIX I 


PROGRAM INFORMATION 

The program information presented is (1) a description of the input parameters, 

(2) a description of the variables in the program commons, and (3) a listing of the pro- 
gram. 


Description of Input Parameters for Blade Design Program 

The format for the input data described below is given in figure 22. 

Parameter Description 

symbol 

AA Incidence -angle option for blade design purposes, biter - 

pretable options are 2-D, 3-D, SUCTION, and TABLE. 

A noninterpretable incidence option word is set to the 
2-D option. The 2-D and 3-D options mean incidence 
angles are determined by reference 2 procedures for 
the respective option. The SUCTION option gives zero 
incidence to the suction surface of the blade at the lead- 
ing edge. The TABLE option means the blade incidence 
angles for the blade element will be input in tabular form, 
INC(IROW, J), at the end of the data set. 

AB Completes the incidence TABLE option. Tc reference in- A4 

cidence to the suction surface at the leading edge, the 
eight columns of the card for AA and AB must read 
JABL^Sg. (If AB is anything other than E SS, the in- 
AA AB 

cidence angles will be referenced to the leading-edge 
centerline. ) 

Deviation-angle option for blade design purposes. Inter- A4 
pretable options are 2-D, 3-D, TABLE, CARTER, and 
MODIFY. Noninterpretable input is set to the 2-D op- 
tion. For the 2-D and 3-D options, deviation angles are 
determined by reference 2 procedures for the corre- 
sponding option. The CARTER and MODIFY options are 
now the same in the program. They indicate the use of 


Format 

A4 
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Parameter 

symbol 


BMAT L(IROTOR) 


BLADES(IROW) 

CC 


CHORDA(HiOW)' 

CHORDB(IROW) 

CHORDC(IROW). 


Description 


Carter’s rule with a modification when blade elements 
have different camber rates on the front and rear seg- 
ment of a blade element (eq. (21)). The TABLE option 
means the blade deviation angles for the blade elements 
will be input in tabular form, DEV(ROW.J), at the end 
of the data set. 

Rotor material density, lbm/in. If a positive nonzero 
number is input, the blade will be stacked so as to bal- 
ance gas bending moments with the centrifugal force 
moment for the material density (see section Balancing 
of Bending Moments on p. 31). The hub stacking point 
stays fixed, so the tip location is moved if necessary. 

Number of blades in each rotor or stator blade row 


Blade- element geometry option for blade design purposes. 
Interpretable options are CIRCULAR, OPTIMUM, and 
TABLE. The CIRCULAR option gives equal segment 
turning rates. Noninterpretable input will be set to the 
CIRCULAR option. The OPTIMUM option means that 
the ratio of blade-element segment turning rates will be 
set by an empirical function of inlet relative Mach num- 
ber Mj. Below a Mj of 0. 8, the blade element will 
be a circular arc. As M ^ is increased, the ratio of 
front-segment turning rate to rear-segment turning 
rate is reduced. A limit of zero camber or, the suction 
surface of the front segment is approached at a of 
about 1.60. The TABLE option means the ratio of 
blade-segment turning rates will be input in tabular 
form, PHKIROW, J), at the end of the data sei. 

^Constants to define ratio of blade-element chord to tip 
chord on projected plane. 



1. 0 + R CHORDA(IROW) + R 2 - CHORDB (IRCW) 

+ R 3 CHORDC(IROW) 


where R - (r t - r)/(r t - r h ) or a fraction of the annulus 
l height at the blade mean. 


Format 


F10.4 


F10.4 

A4 


F1C.4 
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Parameter 

symbol 


Description 


Forma 


C HOKE ( IKOW) 


CPCO(I) 
for 1=1,6 


DD 


DEV(IROW, J) 


EE 


EB 


Df i-cd mini, nun- ra'io of excess ea choke area F 4 

within a t lade passage. If zero is input, no adjustment 
will be attempted within the program. For input values 
greater than zero, incidence angle will be increased as 
necessary to a maximum of -*-2.0° on the leading edge of 
the suction surface in an attempt to give the specified 
choke margin at the covered channel entrance. 

Constants for the specific-heat polynomial function of tem- E20. 8 
perature. 

C p = CPCOU) + CPCCH2)- T + CPCCK3) T 2 + CPCO(4)- T 3 

e CPCO(5)- T 4 4 CPCO(6)- T 5 

Option control of location of transition point between seg- A4 
merits of a blade element. The interpretable options are 
CIRCULAR, SHOCK, and TAELE. T he SHOCK option lo- 
cates the transition point on the suction surface at the nor- 
mal shock impingement point from the leading edge of the 
adjacent blade. The TABLE option means the location of 
the transition point will be input in tabular form, 

TRANS(IROW, J), at the end of the data set. The 
CIRCULAR option and noninterpretable data put the tran- 
sition point at midchord. 

Deviation angle (deg), which may be specified by option. If F10. 4 
the tabular option is used, a value is expected for each 
streamline starting from the tip. 

Option control of location of maximum -thickness point of a A4 
blade element. The interpretable options are TRAN and 
TABLE. The TRAN option and noninterpretable options 
will set the maximum -thickness point at the transition 
point. The TABLE option means the maxim um-t hie kn ess - 
point location will be input in tabular form, 

ZMAX(IROW, J), at the end of the data set. 

Completes the TABLE option of the maximum -thickness A4 
location. If the eight format spaces in figure 22 appear 
as TABLE LE„ the input values of ZMAX(IROW. J) will 
EE EB 


\ 
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Parameter 

symbol 


Description 


Format 


I 


INC(IRQW, J) 


mow 

j 

MOLE 

NXCUT(EROW) 


NSTRM 

OP 


OPO 


be used as the fraction of chord distance from the leading 
edge. If EB is not as shown, the values of 
ZMAX(IROW, J) will be used as the fraction of chord 
distance behind the transition point. 

Calculating station index. Each blade row accounts for two (not in- 
calculating stations, one at the leading edge of the blade put) 
and the other at the trailing edge. 

Incidence angle (deg), which may be input by option. If the F10. 4 
tabular option is used, a value is expected for each 
streamline starting from the tip. 

Blade-row index ( no * * n " 

put) 

Streamline index. Streamlines are numbered from 1 at the (not in- 
tip. P ut ) 

Molecular weight of gas (28. 97 for dry air). F10. 4 

Number of sections across a blade for which fabrication co- 110 
ordinates are desired. If zero, the program will set the 
number of XCUT’s on the basis of aspect ratio. For all 
positive values, the program will set appropriate loca- 
tions to represent the blade. Negative values of 
NXC UT(IROW) activate an option to read cards for the 
XCUT values. The number of values expected for a blade 
row is the absolute value of NXCUT(IROW). 


Number of streamlines (maximum of 21) 

Option controlling amount of output information desired. 
Interpretable options are APPROX. , VEL. DIA. , DE- 
SIGN, COOR. , PUNCH, and ALL. The program as pre- 
serv'd in this report is not run in conjunction with an 
aerodynamic design; so it essentially always uses the 
COORD option, which gives the printout of blade-section 
properties and coordinates for fabrication. 

Option controlling output from systems peripheral equip- 
ment. Options to get blade-section coordinates on 
punched cards and on microfilm exist for the NASA 
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Parameter 

symbol 


Description 


Format 


pm(mow, j) 


pcki,J) 


R(I,J) 

RBHUB(IROW) 

RBTIP(IROW) 

ROT 

SLOPE(I,J) 

SOLID(IROW) 

TALE(IROWfj 
TBLE(IROW) I 
TCLE(IROW) [ 
TDLE(IROW)^ 


I 

a 


Lewis System. The option is specified by only a single 
letter in card column IS of the 17- 10 column field for 
OPO. M gives microfilm coordinates. P gives punched 
cards. B gives both microfilm and punched cards. Any- 
thing else gives neither. 

Ratio of inlet-segment turning to outlet -segment turning 
(ratio of tk/ds’s) for a blade element. If input values 
are expected by use of the tabular option, the data cards 
go within the optional cards at the end of the data set for 
each blade row (fig. 22). A value is expected for each 
streamline beginning from the tip. 

Stagnation pressure for each streamline starting from the 
tip, psia 

When blade edge coordinates are input, PO(I, J) is a tem- 
porary storage location for the radial coordinate of the 
points. 

Radius of each streamline at blade-edge reference stations, 
in. 

Radius coordinate of hub stacking point, in. 

Radius coordinate of tip stacking point, in. 

Compressor rotational speed, rpm 

Streamline slope angle at blade-edge stations, deg 

Tip solidity of a blade row (chord/circumferential spacing) 

r Polynomial coefficients for ratio of blade-element leading- 
edge radius to chord 

J = TALE + TBLE* R + TCLE* R 2 + TDLE- R 3 

c 

where R is (r t - r)/(r t - r^) or the fraction of passage 
height at blade leading edge 


F10.4 


F10.4 

F8.4 

F10.4 

F10.4 

F10.4 

F10.4 

F10.4 

F10.4 

F10.4 


109 


Parameter 

symbol 


Description 


Format 


i 

f 


TAMAX(IROW) 

TBMAXUROW) 

TCMAX(IROW) 

TDMAX(IROW) 


TATEUROWn 
TRTE(IROW) I 
TCTE(IROW) I 
TDTE(IROW) J 

HLT(IROW) 


TITLE(I) 
TO(l, J) 


'Polynomial coefficients for ratio of blade-element maxi- F10. 4 
mum thir'k.iess ?■ i. hord 

. TAMAX • TBMAX- R + TCMAX- R 2 + TDMAX’ R 3 

s. c 

^Polynomial coefficients for ratio of blade-element trailing- F10. 4 
edge radius to chor r \ 

* = TATE + TBTE R + TCTE- R 2 + TCTE- R 3 

c 

^ where R is (r t - r)/(r t - r h ) at the blade trailing edge 

Circumferential direction angle of stacking-axis tilt at hub, F10. 4 
deg. The angle is positive in the direction of rotor rota- 
tion. If |Ti:.T(IROW)| is greater than 100.0. a curved 
stacking line is specified according to r - r^ = C siny, 
where y is the local stacking-line slope with respect to 
a local radial line. The code of the digits of TILT(IROW) 
is -xxx xx. xx, where xx is the y angle at the hub in 
degrees with the sign of the overall TILT(IROW) number, 
and xx. xx is y at the tip in degrees. 

Description of blade row for printout and later identification 18A4 

Total temperature for each streamline starting from the tip, F10. 4 
°R 


TRANS(IROW, J) 


VTH0ROW, J) 
VZ(IROW, J) 
XCUT(IC) 


Location of transition point on blade-element centerline as F10. 4 
a fraction of the blade-element chord. If input values are 
expected by use of the tabular option, the data cards go 
with the optional cards at the end of the data set for each 
blade row (fig. 22). A value is expected for each stream- 
line beginning from the tip. 

Tangential velocity component at blade-edge stations, ft/ sec F10. 4 

Axial velocity component at blade-edge stations, ft/sec F10. 4 

Radial location of blade-section planes. Whether or not F10. 4 
data cards are read for values of XCUT(IC) for a blade 
row is controlled by the value of NXCUT(IROW). Any 
XCUT(IC) cards are read in an output routine so they 



Parameter 

symbol 


Descripti 


Format 


must follow all cards read in subroutine INPUT. It is 
preferable, but not necessary, to list the XCUTS(IC) 
for a blade row in order starting from the tip. 

Z(I, J) Axial location of blade-cage reference velocity diagrams, F10. 4 

in. 


ZBHUB(IROW) 
ZBTIP(IROW) 
ZMAX(IROW, J) 


Axial location of hub stacking point, in. F10. 4 

Initial axial location of tip stacking point, in. F10. 4 

Location of maximum -thickness point on the centerline as F10. 4 
a fraction of blade-element chord. If input values are 
expected by use of the tabular options, the data cards go 
with the optional cards at the end of the data set for each 
blade row (fig. 22). A value is expected for each 
streamline beginning from the tip with a leading-edge or 
transition-point reference according to option (see EB). 

With a transition point reference, the values input are 



Description of Program Variables in Commons 


Symbol 

Common 

Description 

AC 

RCUT 

Area of blade-section end-circle sector 

AL 

MARG 

AOAS value for some other location in blade -element 
channel 

AMACH 

BLADES 

Average inlet relative Mach number for shock at a blade - 
element channel entrance 

AOAS 

MARG 

Ratio of blade-element area to choke area at some chan- 
nel location 

AOA1 

MARG 

Ratio of a local blade-element channel area to blade- 
element inlet relative flow area 




111 




Symbol 


Common 


Description 


AOC 

A1SOAS 

A1SOA1 

BETA 

BETAS(IROW, J) 

BETAl(J) 

BETA2(J) 

BINC 

BLADES(IROW) 

BMATL(IROTOR) 

CALP 

CCC 

CCHORD 

CEPE 

CGBL 

CHD(J) 


CHK(J) 

C HOKE(IROW) 
CHORD 

C HORDA(IROW) 
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BLADES 

BLADES 

BLADES 

SCALAR 

VECTOR 

Blank 

Blank 

BLADES 

VECTOR 

VECTOR 

BLADES 

BLADES 

MARG 

BLADES 

BLADES 

EQUIV 


EQUIV 

VECTOR 

BLADES 

VECTOR 


Fraction of chord location of blade- element maximum 
camber point 

Ratio of blade- element inlet to local choke areas 
Ratio of blade-element inlet moke to actual areas 
Blade-section setting angle 

Relative flow angle at blade -element channel entrance 
shock 

Blade-element-inlet relative flow angle 
Blade-element -outlet relative flow angle 
Streamline incidence angle to blade centerline 
Number of blades in a rotor or stator 
Rotor blade material density 
Cosine of blade-element layout-cone angle 
Ratio of distance between edge-circle centers to overall 
blade-element chord 

Product of CALP and CHORD 

Cosine of angle that line between blade-element edge- 
circle centers makes with chord line 

Cosine of blade-element setting angle for chord 

Blade-element chord as measured along a constant-angle 
path tangent to end circles on pressure side. The chord 
length is measured from the outer tangency points to 
the end circles. 

Ratio of the minimum blade-element-channel-area margin 
to choke area 

Desired minimum blade -element- channel -area choke 
margin 

CHD(J) for local element 

Coefficient for linear term of a polynomial representation 
of radial variation of blade-element chord projected to 
a blade-section plane 


A 



Symbol 


Common 


Description 


C HORDB ( LROW ) 
CHORDC(IROW) 
CINC 

CKTC 

CKTS 

COSA(J) 

COSA2(J) 

COSKL 

COSKU 

COSL(J) 

CP 

CPCO(6) 

CPH2 

CPH3 

CPH4 

CPH5 

CPH6 

CPP3 

CPP4 

CPP5 

CPP6 

CPI 


cv 


VECTOR 

VECTOR 

BLADES 


BLADES 

BLADES 

Blank 

EQUTV 

RCUT 

RCUT 

Blank 

SCALAR 

VECTOR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 


Coeificient for quadratic term of chord polynomial 

Coefficient for cubic term of chord polynomial 

Streamline incidence angle without influence of incidence 
on deviation 


Cosine of blade -element centerline angle at transition 
point of segments 

Cosine of blade-element surface angle at transition point 
of segments 

Cosine of blade -element streamline inlet slope angle 

Cosine of blade-element streamline outlet slope angle 

Cosine of blade-section edge-circle angle at joining point 
with pressure (lower) surface 

cosine of blade-section edge-circle angle at joining point 
with suction (upper) surface 

Cosine of blade-edge angle in meridional plane with ref- 
erence to radial direction 

Specific heat at constant pressure 

Polynomial coefficients for specific -heat function of tem- 
perature 


CPCO(:>)/2. (A 

CPCO(3)/3.0 I Polynomial coefficients for an enthalpy 
CPCO(4)/ 4.0 > t change as derived from integration of 
CPCO(5)/5. OJ v. specific -heat polynomial c dt 
CPCO(6)/6.oJ P 


CPCO(3)/2. <f| 
CPCO(4)/3. 0 I 
CPCO(5)/4. 0 [ 
CPCO(6)/5. 0 J 


'Polynomial coefficient for an isentropic 
i pressure change as derived from in- 
tegration of specific-heat polynomial 

. V dt/t) 


Approximation to y/(y - 1) with use of only first term of 
specific -heat polynomial 


Specific heat at constant volume 


\ 
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Symbol 


Common 


Description 



Cl 

BLADES 

Chordwise component distance of leading-edge center 
circle to centerline transition point as a fraction of 
blade-element chord 

C2 

BLADES 

Chordwise component distance of centerline transition 
point to trailing-edge center circle as a fraction of 
blade -element chord 

DAL 

MARG 

DAOAS value for some other location in blade-element 
channel 

DAOAS 

MARG 

Derivative of AOAS in blade-element channel throughflow 
direction 

DCP 

SCALAR 

Specific-heat difference, CP - CV 

DEV(IROW,J) 

VECTOR 

Blade-element deviation angle on streamline- of - 
revolution surface 

DF 

SCALAR 

Diffusion factor, a blade-element aerodynamic loading 
parameter 

DHC 

SCALAR 

Compressor enthalpy rise 

DHCI 

SCALAR 

Compressor enthalpy rise required by an isentropic proc- 
ess 

DKAPPA 

BLADES 

Inlet- to outlet-blade -angle change on streamline -of - 
revolution surface 

DKLE(IROW) 

Blank 

Blade-element angle difference between suction surface 
and centerline at leading edge 

DL(J) 

Blank 

Meridional plane distance between end-circle centers of 
adjacent blade elements 

DLOSC 

SCALAR 

The part of the pressure loss correlated with diffusion 
factor 

DPW 

MARG 

Normalized-to-chord distance of a point on blade-element 
pressure surface from pressure-surface transition 
point 

DPWL 

MARG 

DPW value for some other location in blade -element 


channel 
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Symbol 


^o/ii ai on 


De script’ on 


DRCE 

DRCGI 

DRCLEP 

DRCM 


DRCMST 

DRCMT 

DRCOI 

DRCT 


DRCTI 

DRCTPI 

DRCTSI 


BLADES 

BLADES 

MARG 

MAHG 


BLADES 

BLADES 

BLADES 

BLADES 


BLADES 

MARG 

MARG 


Nvrm.t wo d-to chord conic radio.- •. on.por. nt Irani a 
U).ade-t-ltmeni end-circle center to the tungency point 
■ i the edge cijcle vir: a or face cr'.c 

Norrnalic'ed-to -chord conic radius compose :n from the 
leading- edge end-circle center to the blade- clement 
3 <ickir.tr reference point 

DRCE for < ending -,.dgc eircit <j the press. -re .c . . . ^ 

NormaLi/cci-to-chord conic radius * ompviK-nt for 
maximum-thickness patii from center Jiue to surface; 
also used as the same type of radius component from 
the leading edge to a mid-channel point 

Normalized- to-chord conic radius component from cen- 
terline transition point to surface maximum -thickness 

point 

Nomalized-to-chord conic radius component from tran- 
sition point to maximum-thickness point on the center- 
line 

Normalized-to-chord conic radius component from 
leading-edge circle center to trailing-edge circle cen- 
ter 

Normalized-to-chord conic radius component of 
transition-point thickness oath which is perpendicular 
to the centerline and which goes from the centerline to 
a surface 

Normalized-to-chord conic radius component from 
leading -edge circle center to transition point on the 
centerline 

Normalized-to-chord conic radius component from 
leading-edge circle center to pressure-surface tran- 
sition point 

Normalized-to-chord conic radius component from 
leading-edge circle center to suction-surface transition 

poin* 
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Symbol 

Common 

Description 

DRCWT 

MARG 

Normalized-to-chord conic radius component from 

suction-surface transition point to a point on the pres- 
sure surface of the blade element on the other side of 
the flow channel 

DR1 

BLADES 

Reference streamtube thickness at leading edge of a blade 
element 

DSA 

MARG 

Average of two blade-surface path distances normalized 
to chord 

DSME 

BLADES 

Normalized-to-chord centerline-path distance from the 
end-circle center on which maximum thickness occurs 
to the maximum-thickness point 

DSMT 

BLADES 

Normalized-to-chord centerline-path distance from the 
transition point to the maximum-thickness point 

DSOI 

BLADES 

Normalized-to-chord centerline -path distance from the 
leading-edge circle center to the trailing-edge circle 
center 

DSOT 

BLADES 

Normalized-to-chord centerline -path distance from the 
transition point to the trailing-edge circle center 

DSP 

MARG 

Normalized-to-chord pressure-surface path length 

DSP1 

MARG 

Normalized-to-chord pressure-surface path length of 
first segment 

DSP2 

MARG 

Normalized-to-chord pressure-surface path length of 
second segment 

DSS 

MARG 

Normalized-to-chord suction-surface path length 

DSSE 

BLADES 

Normalized-to-chord surface path distance from either 
the maximum -thickness point or the transition point to 
the surface end which is in the opposite direction of th« 
other point 

DSS1 

MARG 

Normalized-to-chord suction-surface path length of the 
first segment 

DSS2 

MARG 

Normalized-to-chord suction-surface path length of the 
second segment 
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Symbol 

Common 

Description 

DST 

BLADES 

Normalized-to-chord transition-point blade thickness path 
from the centerline to a surface 

DSTI 

BLADES 

Normalized-to-chord centerline-path distance from the 
leading-edge circle center to the transition point 

DSW 

MARG 

Normalized-to-chord distance of a point on the blade- 
element suction surface from the suction- surface tran- 
sition point 

DX(K) 

ECUT 

Chordwise increment between blade-section surface points 

EB 

MARG 

Conic angle between repeated blade elements erf a blade 
row 

EM(K) 

RCUT 

Second derivatives of a spline-fit blade-section surface 
curve 

EMT 

BLADES 

Conic angular component from centerline transition point 
to a surface maximum-thickness point 

EMTM 

RCUT 

EM(K) value for the transition point on the first-segment 
side 

EWC 

MARG 

Conic angular component of a channel width path 

F 

MARG 

Fraction of total suction-surface distance 

FSB(K) 

PTS 

Blade-element surface distance fractions at which points 
are obtained for blade -section definition 

FSM(J) 

EQUIV 

Fraction of covered-channel through-flow distance at 
which minimum choke margin occurs 

FI 

BLADES 

F at the covered-channel entrance 

F2 

BLADES 

F at the covered-channel exit 

G 

SCALAR 

Gravitational acceleration conversion constant, 32. 1740 
lbm-ft/lbf-sec 2 

GAMM(J) 

Blank 

Ratio of specific heats, CP/CV 

GAMMA 

SCALAR 

Local value of GAMM(J), y 

GBL 

BLADES 

Angle of a blade-element chord line with respect to a 
conic ray 

GJ 

SCALAR 

Product of G and the mechanical equivalent of heat, 

25035. 24 ft 2 -lbm/sec 2 -Btu 
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Symbol 


Common 



Dost- notion 


G.J2 

SCALAR 

2 0 G.I =- 50070 47 lG-!bm sn^-Rtn 



GR1 

SCALAR 

Combination of specihc-ln at terms. (.. 

■ 1) 

(. - 1) 

GR2 

SCALAR 

Combination oi specific -heat terms. 

(,. - 

1/ 

GR3 

SCALAR 

Combination of specific -heat terms. 1 

- 

1) 

GR4 

SCALAR 

Combination of specific-heat terms, (-, 

f 1) 

2 

GR5 

SCALAR 

Combination of specific-heat terms, 

- 1) 

. 2 

H 

SCALAR 

General enthalpy change 



HC 

MARG 

Ratio of a local channel to inlet streamtube thickness 

I 

SCALAR 

Calculating station index 



ICHOKE 

MARG 

Index for location in blade-element channel 


ICL 

BLADES 

Integer routing device used in blade- element centerline 



iteration 



ICONV 

SCALAR 

Integer parameter for highest level program routing 

ICOUNT 

SCALAR 

Line counter for printout of input data 



IDEV(IROW) 

VECTOR 

Integer designation of the deviation angle option: 


1 for 2-D value of reference 2 

2 for 3-D value of reference 2 

3 for Carter’s rule 

4 for Carter’s rule modified by equation (21) 

5 tabular 

IERROR SCALAR Integer parameter which controls the exit when incom- 

patible input data are discovered 

IGEO(IROW) VECTOR Integer designation of the option for PHI(IROW, J): 

1 for midpoint 

2 for optimum (see CC of input parameter list) 

3 for tabulated 

IGO BLADES Integer routing parameter 

ON SCALAR Temporary storage location of an index 
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Symbol 

IINC(IKOW) 


ILOSS(IROW) 

IMAX(IROW) 


inc (mow) 

IOUT 


IP ASS 

IPR 

IR 

IROTOR 

mow 

ISTN(I) 


IT 

ITER 


Common 

VECTOR 


VECTOR 

VECTOR 


VECTOR 

RCUT 


BLADES 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

VECTOR 


RCUT 

SCALAR 


rip! ion 

Int.-'M ! <h si. nn'i *n • >! t:,t in. nit mo ■■ ’ •i.ium: 

1 for 2 ! ) j t” 

2 lor '■] - 1 ’ vuim • 1 ’ i i -o :u ■ 2 

3 for mriiidii r o 1 > 'a , 1; r • • . < i. - < n-n surfac* 

4 for tabular wit!: . •‘•u-c! hm • • !• i ■ i ■ 

5 for tabular with .snot ion ■ surim -tort nee 

Integer designation of loss data set .i>.m’c;,! , o! with a 

blade row 

Integer designation of option for blade-element maximum - 
thickness -point location: 

1 for midpoint 

2 for tabular with transition-point reference 

3 for tabular with leading-edge reference 

Blade-element incidence angle on streumline-of- 
revolution surface (a real variable) 

Counter of number of variables of an arra\ ’iminated for 
a particular calculation (not used in this swap of pro- 
gram) 

Integer routing parameter used for blade-, b .iwnt center- 
line calculation 

Temporary storage location of an index 
Read tape number of computer facility 
Rotor index 
Blade- row index 

Integer designation of calculating station tvoo 

1 for rotor inlet 

2 for rotor outlet 
-1 for stator inlet 
-2 for stator outlet 

0 for annular 

Counter of blade-section surfac-’ nobm-- 
Iteration counter 
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Symbol 


Common 


I)* script ion 


ITRANS(IROW) 

IW 

J 

JM 

KIC(J) 

KIP 

KIS 

KM 

KOC(J) 

KOP 

KOS 

KP 

KS 

KTC 

KTP 

KTS 



VECTOR 


SCALAR 

SCALAR 

SCALAR 

EQUIV 

MARG 

BLADES 

BLADES 

EQUIV 

MARG 

MARG 

MARG 

MARG 

BLADES 

MARG 

BLADES 


Intci’, or dosi.'.r.ation ot dir option for the b facie -element 
transition point: 

1 for m.dpoint 

2 for covered-channel inlet point on suction surface 

3 for tabular 

Write tape number of computer facility 

Streamline index 

Index for mean streamline 

Centerline blade inlet angle on layout cone (a real vari- 
able) 

Blade-element pressure -surface blade angle at inlet (a 
real variable) 

Blade-element suction-surface blade angle at inlet (a real 
variable) 

Centerline and surface blade angle at blade-element 
maximum -thickness point (a real variable) 

Centerline blade outlet angle on layout cone (a real vari- 
able) 

Blade-element pressure-surface blade angle at outlet (a 
real variable) 

Blade-element suction-surface blade angle at outlet (a 
real variable) 

Blade angle at some general pressure-surface point (a 
real variable) 

Blade angle at some general suction-surface point (a real 
variable) 

Blade -element centerline angle at segment transition 
point (a real variable) 

Pressure-surface blade angle at transition point (a real 
variable) 

Suction-surface blade angle at transition pc/nt (a real 
variable) 


< 
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Symbol 


Common 


Description 


KWC 

MACH 

NAD 

NBROWS 

NHUB 

NOPT(IROW) 


NP 

NROTOR 

NSTN 

NSTRM 

NTIP 

NTUBES 

NXCUT(IC) 

OBAR(J) 

OMEGA 

P 

PFLOS 

PHI(IROW, J) 

PI 

PI2 


MARG 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

VECTOR 


ROUT 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

VECTOR 

Blank 

SCALAR 

BLADES 

BLADES 

VECTOR 

SCALAR 

MARG 


Angle of the path across a blade-element channel with re- 
spect to the tangential direction (a real variable) 

Relative Mach number va real variable) 

Number of input blade rows and annular stations (not used 
m this setup of the program) 

Number of blade rows (not relevant in this setup of the 
program) 

Number of hub contour definition points (not used in this 
setup of the program) 

Index designation of the option which controls the program 
output. In this program setup, the coordinate option is 
essentially always in effect. 

Number of blade-section points that are spline curve fit 

Number of rotors (not used in this setup of the program) 

Total number of calculating stations, I (not used in this 
setup of the program) 

Total number of streamlines, J 

Number of tip contour definition points (not used in this 
setup of the program) 

Number of streamiubes (NSTRM - 1) 

Number of blade sections desired in the terminal calcula- 
tion 

Relative pressure-loss coefficient for the losses corre- 
lated with DF, {V' 2[ - P^APj - Px> 

Rotational speed, rad/sec 

Specific PHI(IROW, J) in current use 

Relative pressure-loss coefficient for the losses corre- 
lated with DF, (P’, ; P^/P’j 

Ratio of inlet -segment turning rate to outlet-segment 
turning rate (ratio of dx/ds) for a blade element 

n = 3. 1415927 

One -half pi, n/2 
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Symbol 


Common 


Description 


PO(I,J) 

POA1 

PR 
R(I, J) 

RADIAN 

RBHUB(IROW) 

RBTIP(IROW) 

RCA(J) 

RCG 

RCI 

RCM 

RCMS 

RCO 

RCP 

RCS 

RCT 

RCTP 

RCTS 


VECTOR 

SCALAR 

SCALAR 

VECTOR 

SCALAR 

VECTOR 

VECTOR 

EQUIV 

BLADES 

MARG 

BLADES 

BLADES 

MARG 


MARG 


MARG 

BLADES 

MARG 

MARG 


Total pressure at blade-edge stations (input and output in 

9 

psia, but converted to lbf ft for internal calculations) 

Average inlet total pressure (not used in this setup of the 
program) 

Pressure ratio (not used in this setup of the program) 

Cylindrical-coordinate radius at blade-edge stations, in. 

Conversion factor from radians to degrees, 57. 29578 

Radius coordinate of hub stacking point, in. 

Radius coordinate of tip stacking point, in. 

Cylindrical-coordinate radius of a blade-element stack- 
ing point 

Normalized-to-chord conic radius of a blade-element 
stacking point 

Normalized-to-chord conic radius of a blade-element 
leading-edge circle center 

Normalized-to-chord conic radius of the maximum- 
thickness point on the centerline of a blade element 

Normalized-to-chord conic radius of the maximum- 
thickness point on the surface of a blade element 

Normalized-to-chord conic radius of a blade-element 
trailing-edge circle center 

Normalized- to-chord conic radius of a point on the pres- 
sure surface of a blade element 

Normalized-to-chord conic radius of a point on the suc- 
tion surface of a blade element 

Normalized-to-chord conic radius of the transition point 
on the centerline of a blade element 

Normalized-to-chord conic radius of the transition point 
on the pressure surface of a blade element 

Normalized-to-chord conic radius of the transition point 
on the suction surface of a blade element 


\% 

i 
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•*«■*•* 


MW : 4 


Symbol 


Common 


Description 


RD1 

REC(I, J) 
RECGI 

REE 

RELEP 

RELM(J) 

REMT 

REOI 

REP 

RES 

RET 

RETI 


BLADES 

EQUIV 

BLADES 

BLADES 

MARG 

Plank 

MARG 

MARG 

MARG 

MARG 

BLADES 

BLADES 


Inlet station radius difference of the blade elements which 
define the local channel convenience 

Cylindrical -coordinate radius coordinate of the blade - 
element end-circle centers 

Circumferential direction coordinate from the inlet circle 
center to the blade-element stacking point (RCG times 
the conic angle difference) 

Circumferential direction coordinate from an end-circle 
center to the end-circle tangency point with a surface 
(RCS times the conic angle difference) 

Special REE value, the one to the pressure surface at the 
leading edge 

Blade-element inlet relative Mach number 

Circumferential direction coordinate from the transition 
point to the maximum -thickness point along the center- 
line (RCM times the conic-angle difference) 

Circumferential direction coordinate from the leading- 
edge circle center to the trailing-edge circle center 
(RCO times the conic -angle difference) 

Circumferential direction coordinate from the leading- 
edge circle center to a point on the pressure surface of 
the following blade (RCP times the conic-angle differ- 
ence) 

Circumferential direction coordinate of a point on the suc- 
tion surface referenced to the suction-surface transi- 
tion point (RCS times the conic -angle difference) 

Circumferential direction coordinate from the centerline 
transition point to a surface transition point (ROTS 
times the conic -angle difference) 

Circumferential direction coordinate from the leading- 
edge circle center to the centerline transition point 
1RCT times the conic -angle difference) 



12 


CO 


Symbol 


Common 


Description 


RETP 

RETS 

REWT 


RE1(J) 

RE2(J) 

RE3(J) 

RE4(J) 

RE5(J) 

RF 

RG 

RMSJ 

ROT 

RPR1(J) 

RPTE(I, J) 
RTR 

RTRC 

RTRD 


P.TRQ 

RVTH(J) 

R1 
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MARG 


MARG 


MARG 


Blank 

Blank 

Blank 

Blank 

Blank 

SCALAR 

SCALAR 

BLADES 

SCALAR 

Blank 

EQUIV 

MARG 

BLADES 

MARG 


MARG 

Blank 

BLADES 


Circumferential direction coordinate from the leading- 
edge circle center to the pressure-surface transition 
point (RCTP times the conic -angle difference) 

Circumferential direction coordinate from the leading - 
edge circle center to the suction-surface transition 
point (RCTS times the conic -angle difference) 

Circumferential direction coordinate from the suction- 
surface transition ooint to a point on the pressure sur- 
face of the next blade (RCP times the cenic-angle dif- 
ference) 

Temporary storage location for an array 
Temporary storage location for an array 
Temporary storage location for an array 
Temporary storage location for an array 
Temporary storage location for an array 
Gas constant for the fluid, lbf-ft/lbm-°R 
Product of G and RF, ft 2 /sec 2 -°R 

Product of blade-element solidity with the mean radius 
normalized to chord 

Rotational speed, rpm 

Relative total pressure ratio, (Pj - Pj)/P' (not used in 
thn setup of the program) 

r(50/di) at a blade-element end-circle center 

Ratio of a local relative total temperature to the blade- 
element inlet relative total temperature 

Constant for computing RTR, Qy - l)ou 2 c 2 /144ygR f T’ 1 ] 

Constant used for estimation of the derivative of RTR with 
blade-element path distance, 

RTRC x sin a x (Blade -element path distance) 

Square root of RTR 

tVq (not used in this setup of the program) 

Particular value of R(I, J) at blade-element inlet 


mi 




Symbol 


Common 


Description 


R1C 

BLADES 

R1 normalized to chord 

R2 

BLADES 

Particular value of R(I.J) at blade-element exit 

SALP 

BLADES 

Sine of blade-element layout-cone angle 

SECGBL 

MARG 

Secant of blade-element setting angle for chord 

SEPE 

BLADES 

Sine of angle that the line between the blade-element 
edge-circle centers makes with the chord line 

SGAM 

BLADES 

Sine of blade-element setting angle for the line between 
the edge-circle centers 

SGBL 

BLADES 

Sine of blade-element setting angle for the chord 

SINA(J) 

Blank 

Sine of blade-element streamline inlet slope ingle 

SINA2(J) 

EQUIV 

Sine of the blade-element streamline outlet slope angle 

SINKL 

RCUT 

Sine of blade-section edge-circle angle at the joining 
point wityi the pressure (lower) surface 

SINKU 

ROUT 

Sine of blade-section edge-circle angle at the joining 
point with the suction (upper) surface 

SINL(J) 

Blank 

Sine of blade-edge angle in meridional plane with refer- 
ence to the radial direction 

SJ 

BLADES 

Blade-element solidity (chord/tangential spacing) 

SK3C(J) 

EQUIV 

Blade inlet angle on a streamline of revolution 

SKOC(J) 

EQUIV 

Blade outlet angle on a streamline of revolution 

SKTC 

BLADES 

Sine of blade-element centerline angle at the transition 
point of the segments 

SKTS 

BLADES 

Sine of blade-element surface angle at the transition point 
of the segments 

SLJD 

BLADES 

Difference of slope between the neighboring cones used to 
define changes of streamtube thickness 

SLOPE(I, J) 

VECTOR 

Streamline slope at the blade-edge stations 

SLOS(J) 

Blank 

Ratio of relative total pressures behind a shock to that 
ahead of the shock 

SOLID(IROW) 

VECTOR 

Tip solidity of a blade * ow 


j 
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Symbol 


C> nm on 


Description 



SONIC (J) 

blank 

Square ol the local speed of sound (not used in this pro- 
gram setup) 

T 

BLADES 

Specific TRANS(IROW, .J) in current use 

TALE(IROW) 

VECTOR 

Constant term in the polynomial representation of the 
norrnalized-to-chord leading- -dge radius function of 
fraction of passage height 

TALP(J) 

EQUIV 

Tangent of the blade-element layout-cone angle 

TAM AX (IROW) 

VECTOR 

Constant term in polynomial representation of the 
normalized-to-chord maximum -thickness function of 
fraction of passage height 

TATE(mOW) 

VECTOR 

Constant term in polynomial representation of the 
normalized-to-chord t railing-edge radius function of 
fraction of passage height 

TBLE(IROW) 

VECTOR 

Constant for linear term in the polynomial associated with 
TALE(mOW) 

TBMAX(mOW) 

VECTOR 

Constant for linear term in the polynomial associated with 
TAMAX(IROW) 

TBTE(mOW) 

VECTOR 

Constant for linear term in the polynomial associated with 
TATE(IROW) 

TCA(.J) 

EQIJ17 

Angular cylindrical coordinate displacement of a blade- 
element stacking point from the reference hub element 
(positive in direction of rotor rotation) 

TCGI 

MARG 

Angular cylindrical coordinate from a blade-element 
leading-edge circle center to the stacking point 

TCLE(IROW) 

VECTOR 

Constant for quadratic term in the polynomial associated 
with TALE(IROW) 

TCMAX(LROW) 

VECTOR 

Constant for quadratic term in the polynomial associated 
with TAMAX(IROW) 

TCTE'IROW) 

VECTOR 

Constant for quadratic term in the polynomial associated 
with TATE(IROW) 

TDLE(iKOW) 

VECTOR 

Constant for cubic term in the polynomial associated with 
TALE(IROW) 


i 
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Symbol 


Common 


Description 


TDMAX(IROW) 

VECTOR 

Constant for cubic term in the polynomial associated with 
TAMAX(IROW) 

TDTE(IROW) 

VECTOR 

Constant for cubic term in the polynomial associated with 
TATE(IROW) 

TEC (I, J) 

EQUIV 

Angular cylindrical coordinate of an end-circle center 
referenced to the hub-element stacking point 

TEPE 

BLADES 

Tangent of angle that the line between the blade-element 
edge-circle centers makes with the chord line 

TGB(J) 

EQUIV 

Tangent of blade -element setting angle for the chord 

TGBL 

MARG 

Same as TGB(J) for the current blade element 

TGBLL 

BLADES 

Value of TGBL on the previous iteration 

THD 

BLADES 

Normalized-to-chord radius difference of trailing-edge 
circle from leading -edge circle 

THETAP(J, K) 

Blank 

Angular cylindrical coordinate of point on the pressure 
surface of a blade element referenced to the hub- 
element stacking point 

THETAS(J, K) 

Blank 

Angular cylindrical coordinate of point on the suction sur- 
face of a blade element referenced to the hub-element 
stacking point 

THLE 

BLADES 

Ratio of blade-element leading-edge circle radius to 
chord 

THMAX 

BLADES 

Ratio of blade-element maximum thickness to chord 

THTE 

BLADES 

Ratio of blade-element trailing-edge circle radius to 
chord 

TILT(IROW) 

VECTOR 

Stacking-axis lean angle in the circumferential direction 
(complete description given in input variable list) 

TITLE(I) 

LABEL 

Input alphanumeric title of the data set 

TKTN 

BLADES 

Tangent of angle for the transition thickness path which 
is normal to the local centerline 

TL 

SCALAR 

Lower temperature for a thermodynamic -change-of-state 
calculation 
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Symbol 


Common 


Description 


t 


TLS 

BLADES 

Tangent of stacking-axis lean from radial direction in 
meridional (r.z) plane 

TO(I, J) 

VECTOR 

Total temperature at blade-edge stations. °R 

TOA1 

SCALAR 

Average inlet total temperature (not used in this setup of 
the program) 

TRANS(IROW, J) 

VECTOR 

Chordwise component of centerline transition-point loca- 
tion normalized by the chord 

TRELl(J) 

Blank 

Blade -element inlet relative total temperature, °R 

TSTAT(J) 

Blank 

Static temperature, °R 

TTRP(J) 

EQUIV 

Angular cylindrical coordinate of transition point on pres- 
sure surface of a blade element (hub stacking -point 
reference) 

TTRS(J) 

EQUIV 

Angular cylindrical coordinate of transition point on suc- 
tion surface of a blade element (hub stacking-point 
reference) 

TU 

SCALAR 

Upper temperature for a thermodynamic-change-of-state 
calculation 

VM(J) 

Blank 

Meridional component of velocity, ft/sec 

VTH(I, J) 

VECTOR 

Circumferential ( 3 ) component of velocity, ft/sec 

VTSQ(J) 

Blank 

2 2 

VTH(I, J) squared at a station, ft /sec 

VZ(I,J) 

VECTOR 

Axial (z) component of velocity, ft/sec 

wc 

MARG 

Ratio of a local blade -to -blade channel width to chord 

WC1 

BLADES 

Inlet streamline channel width in the blade -to-blade plane 

XBAR(IROW, J) 

Blank 

Normalized-to-chord chordwise component of the distance 
from the leading-edge circle center to the blade- 
element stacking point 

YBAR(LROW, J) 

Blank 

Corresponding perpendicular component to XBAR(IROW, J) 

YBP(K) 

ROUT 

Pressure-surface blade-section coordinate normal to 
chord, in. 

YBS(K) 

RCUT 

Suction-surface blade-section coordinate normal to 
chord, in. 
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Symbol 


Common 


Description 


YB1 

YB2 

YCCLE(J) 

YCCTE(J) 

Z(I,J) 

ZBHUB(IROW) 

ZBP(K) 

ZBS(K) 

ZBTIP(IROW) 

ZCCLE(J) 

ZCCTE(J) 

ZCDA(J) 

ZEC(I, J) 

ZM 

ZMAX(IROW, J) 

ZMT 

ZP(J, K) 

ZS(J, K) 


BLADES 

BLADES 

EQUIV 

EQUIV 

VECTOR 

VECTOR 

RCUT 

RCUT 

VECTOR 

EQUIV 

EQUIV 

EQUIV 

EQUIV 

VECTOR 

MARG 

Blank 

Blank 


Average uf the two blade-element end-circle radii nor- 
malized to chord 

Constant for first approximation calculation of 
YBAR(IROW,,J) 

Tangential direction coordinate of blade-section leading- 
edge circle center, in. 

Tangential-direction coordinate of blade-section trailing- 
edge circle center, in. 

Axial location of blade-edge stations, in. 

Axial location of hub stacking point, in. 

Chordwise blade-section coordinate on pressure surface, 
in. 

Chordwise blade-section coordinate on suction surface, 
in. 

Axial location of tip stacking point, in. 

Axial coordinate of blade-section leading-edge circle 
center, in. 

Axial coordinate of blade-section trailing-edge circle 
center, in. 

Axial displacement of blade-element stacking points from 
hub- element stacking point 

Axial location of blade-element end-circle centers 

Chordwise component of centerline maximum -thickness- 
point location normalized by the chord 

General array of ZM, but referenced either to blade- 
element leading edge or transition point 

Location of maximum -thickness point with respect to 
transition point normalized to chord 

Axial coordinate of blade-element pressure-surface 
points, in. 

Axial coordinate of blade -element suction-surface points, 
in. 
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surtacc. m. 


Listing oi Computer Program 


THIS ROUTINE SERVES AS A CENTRAL CONTROL 

REAL INC. KIC, KIP, KIS, KM, KOC , KOP, KOS, KP, KS« KTC » KTP, KTS, 
X KMC, MACH 
CCMMON /VECTOR/ 

1 BETAS! 1,21), BMATL(i), BLADES!!), CHOKE (11, CHOROAd), CHOROB(l), 

2 CHCROC(l), CPC0I6), CEV(l,21l* IDEVdl, IGEOdl, IlNC(l), 

3 ILCSS(1», lMAXtd, INC! 1,21 ), ISTNI2I, I TRANS! 11 , NOPT(l), 

4 MXCUT(l), PHI (1,21), PO(2,2U, RI2,21», RBHUBdJ, RBTIPd), 

5 SLOPE!?, 211, SOL IO( II, TALEd), T AMAX! 1 ) , TATE(l), TBLEd), 

t TBMAXdl, I tU £ ( t ) , TCLE(l), TCMAX(l), TCTEdl, TOLEdt, TDMAXd), 

7 TCTEd), T I L T ( 1 ) , TC(2,?l», TRANS! 1,21), VTH(2,2l>, VZ!2,2i), 

8 2(2,21), ZBHUodl, ZPTIPdl, ZMAX(i,21» 

CCPHCM /SCALAR/ 

_ . — .. .r ^ m i / i* nn, /* / /~onc rnm 


CCPMCN /SC 

1 BETA, CP, 

2 CPI, CV, 

3 C«S G'RA, 
A I RCW, I T 6 
5 M 1 P , NTll 

CCMMON 

1 P £ ( A 1 ( 2 1 ) 

2 C A i» y ( ? n , 


A2(21), CCS A ( 21), COSL ( 21 ) * 0KLE(l,21), 0L121), 
(21), PELM( 21), RPR 1( 21 ) , RE1(21), RE2(21), 

1), R E5 ( 2 1 ) , RVTH( 21 ) , SINA(21), SINL(21), SL0S(21) 


L ■* ' ' l C 1 ( t IJl'Hrv t d W t r - l. i 1 ^ A • f • , w * , T v 

PE2(?1), R f A(21>, R E5 ( 2 1 ) , RVTH(21), SINA(21), SINL(21), SL0S(21) 
.VMU’ll, TH£TAP(21,13), THETAS ( 21 , l 3 ) , TRELK21), TSTAT(21), 
VP(21), VT-.C121), X£AR(1,21), VBAR(l,2i), ZP(2l,l3), ZS(21,13) 

CCPMCN /EQUIV/ 

CH 0 ( 2 1 ) , OiK(21), CCSA2(21), FSM(21), KIC(21), KCC(21), RCA!2l>» 
RFC!?, 21), RPT F ( 2 ,2 1 ) , SINA2(2l), SKICI2D, SK0C(21)» TALP(21), 

> TC a ( 2 1 ) , TEC!?, 21), TG8 ( 21 ) , TTRP121 ) , TTRS! 21 ) ,YCCLE( 25) , VCCTEI25 1 


1 CHC(21), C H K ( 2 1 ) 

2 RFC (3, 21 ) , PPTf ( 

3 TCA(21), TEC!?, 2 
A , ZCCLE < 2S ) , ZCC TE 

CC P MON /BL AuES/ 

1 APACH, ACC, A1SO 

2 CINC, CKTC, CRTS 

3 CRCCI, CRCT, DRC 
A EMT, FI, F2* G8L 


, RPTF<2,21), SI NA2! 21 ) , SKICI2D, SK0C(21>, TALP(21>. 
TEC! ?,21|, TG8(21) , TTRP ( 21 ) , TTRS! 21 ) ,YCCIE(25) ,VCCTEI2 
, ZCCTE! 25 ) , ZCDA( 21 ) , ZEC(2,2U, ZTRPI21), ZTRS121) 

AUES/ 

C, A1SOAS, A1SCA1, BINC, CALP, CCC, CEPE, CGBL, CHORD, 
C, CRTS, Cl, C2, OKAPPA, DRCE, ORCGI, ORCHST* ORCMT, 

r- r r% n z' r » ^ n i n r ur nCtiT r\Cn 1 HC AT . f\CCC . ACT . nCT 


OSTI, 


, A1SOAS, A1SCA1, BINC, CALP, CCC, CEPE, CGBL, CHORD, 

, CRTS, Cl, C2, OKAPPA, DRCE, ORCGI, ORCHST* ORCMT* 

T, DRCTI, CRl, OSME, OSHT, OSOI, OSOT * OSSE* OST , DSTI* 

. EMT, FI, F2, G8L, ICL, IGO, IPASS, KIS, KM, KTC* KTS, P. PPLOS, 

S RCG, RCM, R CMS , RCT, RDl, RECGi, REE* REMT* RET* RETI* RHSJ* RTRC 
6 , R 1 , R1C, °2 , SALP, SEPE, SGAM, SGBL* SJ, SKTC, SKTS, SL4D, T* 

7 TEPE, TG6LL » T HD* THLE, THMAX, THTE, TKTN, TLS, MCI, VB1, VB2, ZM 
CCRRCN /MARG/ 


, OPM, OPML, DRCLEP, ORCM, 

SP1 , 0SP2, OSS, DSSl, 0SS2, DSN 
KOS. KP, KS, KTP, KMC, PI2, RCI 


J R [. T I f ^ I | \ i n u | > i n % » .'u vuuv » ' v « » * 

OIMtNSICN mi (21), BK T C ( 2 1 ) , CF(21), fl 
l PSd?l), PHK2I), SF(2l), SMACH! 21 ) , 
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c DERIVATIVE UF A FUNCTICN FRO* A PARABOLIC FIT 

nFCMR,Fl,F2 # F3,Ri,R2,R3) * U F 3- F2)*!R1 ♦ R2 - 2 . 0 *R)/(R 2 - R3) 
X ♦ IF? - F 1 ) * ( R 2 ♦ R 3 - 2.0*R)/(R2 - R1))/!R3 - Ri) 

C LCCAL VALUE CF A FUNCTION FPCM A PARABOLIC FIT OF NEARBY POINTS 

?RESS(R v Pl v P2fP3»RIfR2«R3) = P2 ♦ CR - R?W(Ri - R3)*HPl - p 2)* 

X (R - R 3 ) / ( R 1 - «2) - I P 2 - P3)*!R - R1)/(R2 - R3)> 

I R - 5 
IW * 6 
IRCW = I 
ILCSS(IRCW) = 1 
IRCTOR = l 
10 CALL INPLT 

icctsv = 0 

ITER = 0 

NTU6ES = NSTRM -1 
JM = NTU8ES/2 ♦ 1 
P 1 2 * PI/2.0 

C *** CALCULATE PARAMETERS THAT ARE NOT ITERATION DEPENDENT 
RTA = R(I,n ♦ R(I-l.i) 

RHTA * RTA - !R!I,N$TRM) ♦ R< 1-lfNSTRMI } 

CHOU) = P I *RT A^SOL I 0 1 l RCW ) /8L ADESI I ROW I 
□C 690 J^ltNSTRM 

SINACJI * SL0PEU-1* J)/SGRT! 1.0 ♦ SLOPEII-1, Jl**2 I 
COS A I J ) = SORT (1*0 - SlNAtJ***2) 

SI N A2( J) * SLOPE! I » J I/SQRTC1.0 ♦ SLOPE! I t J>**2 ) 

CCS A2 < J! = SORT { 1 # 0 - SINA2!J>**2> 

RPTE C I — 1 » J I = 0.0 
690 RPTEUvJI * 0.0 
C *♦* THE MAIN OPERATING LOCP 
7CC ITER = ITER ♦ l 

IF ( ICCNV.NE.2) GO TC 70E 

C *** COMPUTE STATIC PRESSURES ON STREAM! INES AT THE 6LA0E EDGES 
WRITE UW t 2540) 

DC 701 JI - 1,3 

HR = ( (VZ! I-l,Jl )/COS A! J I ) )**2 ♦ VTH! I- 1 , J I) **2 ) /G J2 
TL' TOl i-ltJl ) 

TL = TEMP(mH) 

T ST A T I JI ) - TL 

PSKJI) = PC! i - l * J I ) / 144.0/PRATIO! TU ) 

HR - ( !VZ{ I ,J1 )/CCSA2(JI ))* + 2 ♦ VTH! I , J I) ♦♦Z ) /G J2 
TU = TOU , Jl ) 

TL - TEMP(HR) 

701 PS?(JI) * PC! I , Jl)/I44.0/PRATIO!TU) 

JJ * 2 

I F I N = 0 

DC 705 J 3 1 , NST RM 

RBFIJ) = ! R ( I - 1 , J ) ♦ R!I,J))/2.0 

702 IF UJ.EO.NTUBES ) GO TG 704 

IF (RBF(J).GE.(RU-1,JJ) ♦ R (I- i , J J+i 1) /2. 01 GO TO 704 
7C3 JJ = JJ ♦ 1 

HR = ( tVZtI-l?JJ*i)/CCSA!JJ*ll 1**2 ♦ VTHU-i f JJ+l)**2l/GJ2 
TU = TCU-l.JJ + i) 

TL = TEMP ( HR ) 

TSTAT(JJ41) = TL 

PSil JJFl) = PGU-1* J J* 1 ) /l '*4 ♦ O/PRAT 10! TU) 

HR = f (VZU t JJ+1I/CQSA2! JJ*1 ) )**2 ♦ VTH II , J J+l 1**2 > /GJ2 
TU = TO! I , JJ*1 ) 

TL = TEMP(FR) 

P S2 ( J J*1 ) = PCI I ?JJM J/144. 0/P RATIO! TU) 

IF ( IFIN.EC.l) GO TO 705 
GC TC 70? 


46 
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70 FMJ) = DH p j»l RRF ( J ) , FS1 < J J- 1 ) .PS1I J J ) ,FSI ( J J* l ) ,« C I -l t J J“l) , 

X R ( I -1 , JJ I ,K ( l -) , JJ*1 I ) 

IF ( J.NF.NSTR4.CR.JJ C.NTU« C S I GO TO 7->5 
IF IN - l 

GC TC ^07 

705 WRITE (IW, 255*1 RU-L, Jl, 2(1-1, J), VZ(t-l,J), VTH(I-1,JI, R(I,J>, 

X l ( I , J ) , V2< I , I ) , VTH( I , J) 

WR l I F <!W,’-j60) 

JJ - 2 

OR 4 T 10 = PI*IPS1(1)/TST4T( l)*VZ( I-l,l)*R< I - 1 * 1 » ♦ PS 1 1 2 I /TSTAT (2 ) * 

X V7 ( 1-1,2 )*R( 1-1,211/RFA <R< l-l, 1 I - R ( I - 1 , 2 I I / ( RBF ( 1 I - RBF(2I) 

7oe dc 900 j=i,ns;rp 

IF (ICCNV.CE.2) GC TC R96 
IF ( ITER. EG. II GC TO 790 

C *** CORRECT THF VELOCITY CIACRAHS TC THE EDGES OF THE BLADE 
IF C J. EC. 1 I GO TO 710 
Jli = J - 1 

Jl = J - 1 

J2 = J 

J3 - J ♦ 1 

IF (J.NE.NSTRPI GC TC 72! 

JL = J 

JU = J - l 

Jl = J - 2 

J 2 * J - \ 

J3 = J 

GC TC 73" 

7 1C JC - J 

J 1 - J 

J2 = J ♦ 1 

J 3 = J ♦ 2 

T2C JL = J ♦ 1 

73C DC 770 1=1,2 

IF ( I . G T . 1 ) CC TC T 40 
TANKE r T an ( K 1 C < J > ) 

CCSAE = CCSAIJ) 

CC TC 750 

740 YANKF = tamkocijd 
CCSAE = CCSA2 ( J ) 

75C CRI = (2(1, Jl - 2E'.« I , Jl l*SLCPE< I , Jl 
V TH ( I , J I = WTH( 1 , J»*( 1.0 - DR I /ft ( IfJII 

DAOR = ( SLOPE ( l , JU I - SLCPE( I, JLI l/( 1.0 ♦ SLOPE ( I * JUI *SLOPE ( I » JLI I 

1 / ( R ( I * JU I - R ( I • JLI ♦ I 2 ( I , JUI - Z( I, Jl )*SLOPE( l, JUI - (Z(I,Jl) - 

2 Z( I ,J) )*SlUPE( 1 , JL) I 

ARATIO = (1.0 ♦ DRI/R< I, Jl l*(1.0 - DAOR*(Z(I,J) - ZELIUJMI 
HR = ( ( VZ( I , JI/CCSAE 1**2 ♦ VTH( I, JI**2)/GJ2 
TU = T D( I,J) 

TL = TFPP(FR) 

RFC = PC(I,JI/(TL*RF*PRATI0(TUI) 

RV2C = RHC*V7 ( I , JI/ARAT1C 

VZU.J) = VZ(l,J)*(l.: ♦ (l.C/ARATIO - 1. 01/(1. 0 - (VZ(I,J)/ 

X CCSAE )*’»2/ (GAHM( J)*RC*TL))> 

760 HR = ( (VZt I , JI/COSAE )**2 * VTH( l, J )**2I/GJ2 
7 L = TERP(HR) 

ft V 2 = VZ(I ,JI*PO< I, J >/<Tl*RF*P«ATlO(TU) I 
IF ( ABS( RVZ/RVZC - 1 . ? I . IT .0 .0001 1 GO TO 765 

V 2 ( I , J I = V 2 (!,J)*(l.r ♦ (l.c - RVZ/RVZC )/( 1.0 - ( VZ( I , J l/COSAEI ** 

X 2/ (GAHP(JI*RG*7LI I) 

GC TC 76" 
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C *** SET THE EDCc Uttt I VAT l VE , P*PARriAL OF ThETA WITH KFSPtC'.T TO » 

765 TANID = CrDRIREC < I , J I ,7EC< I, Jll ,2EC( l, J2) ,ZEC< I , J3I ,«fcC< I , Jl I , 

X REC(I,J2),KEC(!,J3!I 
SINLO = TAMLO/SQRT i 1 . : ♦ TANID**2I 
TANIA = (TANLL + T AL P ( J ) ) / < l . 0 - T ANL P* T ALT' < J I I 
CCSLA = l.C /SQRTU.C ♦ TANLA**2I 
CALP = l.C/SOK T ( l.C ♦ T A l P ( J ) * * 2 I 

RPTE < l , J) = DFDR (SEC ( 1 , J I , TEC <l,Jll,TEC(l,J2l,rEC(l . J J ) .SEC < I » Jl ) . 
X REC (I , J2 I ,KtC< l » J 3 ) ) 

770 RPTcdtJI - < REC < I . J t *RPTE< l , J I *C ALP - TANK.E*S INLD I /COSL A 
I = 2 

780 ZElU-l.J) = 2(1-1, J! 

ZEL ( I , J) = 2(1, J) 

C *** VELOCITY DIAGRAM PARAMETERS FOR THE BLADE ELEMENT DESIGN 
VP(J> = VZ( I-l, J»/COSA( J| 

HI * SORT ( V M ( J ) **2 ♦ VTH(I-1,J)**2» 

HR * Wl**27G J2 
Til * TO(l-l,JI 
TL * TEMPIHRI 
CP * CPF t TL ) 

GAMP ( J) = CP/(CP - OCP) 

SCNIC(J) * RG*GAPM< J I *TL 
VPC * VZ( I * J J/COSA2! J ) 

IF (ISTN(I).GT.OI GO TO 790 
TRELl(J) * TCU-l.Jl 
WTH1 = VTH< I-l.JI 
WTH2 = VTH ( I * J I 

TLCSUI * 1.0 - PG(I ,JI/PO(I-l,Jl 
GC TO 800 

790 U = CMEGA*R< l - 1 , J./12.C 

HR = U*( ?.0*VTH< I-ltJ I - UI/GJ2 
TL = TO(I-l,J> 

TRELHJI = TEMPI HR I 

WTH 1 = U - VTH(I-1,JI 

Ml = SORT <VM< J>**2 ♦ WTH 1**2 I 

WTH2 = R( I,JI*CMEGA/12.0 - VTHU.JI 

GR2 * GAPPI J )/(GAMMI J I - 1.0 ) 

TLCSUI = (1.0 - PO( I ,J»/PC( I-l, J»/(TO( I,J»/TO( 1-1, Jl »**GR2>*(1.0 

1 ♦ (CMEG**R( l, J) 1**22(288. 0*GR2*RG*TREL1( Jl >*( 1.0 - <R(I-1,JI/ 

2 R< l ,J) 1**21 l**GK2 

8C0 W2 = SORT I VMC**2 ♦ WTF2**2I 
BETAKJJ * ATAN(MTH1/VM( J) I 
BETA2IJ1 = ATAN(WTH2/VM0> 

R ELP ( J I = W1/SCRT(S0MC< Jl I 
RJA = R( I , J I ♦ R ( I-l , J I 
DR = ( R( I , J I - *i i-i , J 5 5 **2 

CR = SORT <1.0 - (1.0 ♦ I VMI J )*VMO - WTH1*WTH2 M ( W1*W2I l*DR/ ( 2.0* 

X (DR ♦ (Z(I, Jl - 2(1-1, J»I**2II) 

PRA = ( RT A - RJAI/RHTA 
IF ( J.NE.ll GO TO 810 
CRT = CR 
GC TO B20 

810 CR * CRT* ( 1 .0 ♦ RRA* (CHORDA! IROMI ♦ RRA*(CHORDB( IROWI ♦ RRA* 

X CHCRDCI IRCWI1 ll/CR 
CHDIJI = CHD(1I*CR 
820 IF (ITFR.NE.il GO TO P25 

BETAS! I ROW , J I = O.B*8ETAl(J» ♦ 0.2*BETA2(JI 
IF ( ITRANSI I ROW I .NE.2 I GC TO 825 

TRANS( IRCW.JI = SIN( PETAK Jl |*RJA/ ( RT A*SOL ID ( I ROW I* ( 1.0 ♦ RRA* 

X (CHCR()A( IROWI ♦ RRA*(CHCRDR( I ROW ) RRA*CHORDC( IRON 1)111 

IF ( TRANS( IR0W,JI.GT.:.9| TR ANSI IROW, J I = 0.9 


166 

16 7 

168 

169 

170 

171 
17 ? 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 
163 
196 

185 

186 

187 

188 

189 

190 

191 

192 

193 
196 

195 

196 

197 

198 

199 

200 
201 
202 
203 
206 

205 

206 

207 

208 

209 

210 
211 
212 
213 
216 

215 

216 

217 

218 

219 

220 
221 
222 
223 
226 

225 

226 


133 


Q **. T H ,FS f.K l. C S . PARAMETER 

«2 5 G l> i ' GARMt j ) ♦ 1.0 

G*’. -- GAPM(J) • 1,0 

G'U - SCR T (GP1/GMU 
G E ? = GA^MI J)/CP1 

GR3 - 1.0/GMl 
GRA - Go 1/2.0 
GF5 = GM1/2.0 

SS0LTA= 6ETA1IJ) - BE T A3 ' l ROW > J t 
C **♦ TEST FOR SUPERSONIC VELOCITY 
IF (REtMIJI.LT. 1.01 GC TO 830 
SPM = SC-P T ( REl •* ( J ) ** 2 - 1.0) 

PREFER = GR1*ATAN<SMM/GR1) - ATAN(SMM) 

GC TO 8.C 
83C P“EFER * 0.0 
84C PREFER = PPEYER ♦ SSBETA 

IF < PMFYER.LE.O.C ) GC TO 860 
C *•* ITERATE FCR THE SUCTICN SURFACE MACH NUMBER 
TEPPP = l.C ♦ 3. 0*PMEF FR 
85C SP = SORT f TEMPM**2 - l .0 1 
SPG = SM/GR1 

VV = GR1* ATAN I SMG ) - ATANISM) 

0 1 F E = PMEYER - VV 

TEPPM = TEPPM ♦ OIFF*SP/(TEMPM/(l.O ♦ SMG**2) - l.O/TEMPM) 

II s A6SJ0IFF ).LE. 0.001) GO TO 870 

C.C I L 850 
86C TEf'PP = l.C 

S7C AMACH = (REIM'J) ♦ TEPPM )/2.C 
H ( AMACH.GT.l.C) GO TC 980 

s;c s ( J ) = i.o 

GC TO 890 

88C A'SC = AMACH**2 

SIOS(J) = ( (GK4*AMSQ/( l.C ♦ GR5*AMSQ) )**GR2)*IGR4/(GAHM< J)*AMSQ - 

X GPM ) **GB3 

S'CSIJ) = 1.0 - ( 1.0 - SLOS( J» )/AMSQ 
890 CHaRiJ) = (ILCSCJ) - 1.0 ♦ SLOSI J) )/( 1.0 - Tl.O ♦ GM1/2.0*RELM( J ) 
A **2 ) **( -GP2 ) ) 

895 CALL BLAOE 

IF ( iFRROR .EC. l.ANO. ICCNV.LT .2 ) GO TO 10 
•ALL S8ETA 

Ir < iCCNV.LT.2 ) GO T C 9CC 
IF ( IGO.NE .2 ' CAi • MARGIN 
C *** COMPUTE THF BLADE FORCES 
89fc IF ( JJ.EO.MUBES) GO TC 997 

;c («HFU ) .GE. (R( l . J ■! ) ♦ R(I » JJ*1> )/2.0) GO TO 897 

. . = jj ♦ : 

Cf TO 896 

857 FA(J) r ?.r#Pi*RBMJ )*( PRESS (RBF < J > ,PS?< JJ-t),PS2( JJ) f PS2I JJ*1)» 

< R(I»J.I-l)»R(ltJJ)*R( l»JJ+l)) -FA( J) )/ BLADES! I ROW) 

IF ( J.NE.NSTRM) GC TC 898 
PATIO = OP AT IC 
GC TC 899 

89B RATIO = PI*(PSl(J)/TSTAT(J)*VZ(I-l,J)*RU-ltJ) ♦ PS1IJ+1)/ 

X TS T AT « J+ l ) *VZ I I-l,J*l>*R( 1-1, J*l))/RF*(RU-l.J) - R(l-ltJ*l>)/ 

2 (PL'FIJ) - HfF<J*1)> 

859 F T ( J ) = (PATIC ♦ C«AT IC ) /( 2.0*C*BLA0ES( IROM ) ) 

F A t J ) = F A ( J ) ♦ FT( J )MV/( I t J) - VZ( I-l* J) ) 

F T ( J ) = FT(J)*(VTH(I-1,J) - VTH(I,J») 

ORATK) = RATIO 
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C *** SET UP CaiCUtAfrt 8LACE eiEMfNT PARAMETERS FOR PRINTOUT 286 

TFMAX = ?.C*Th(»aX 2*7 

3 SC AMR = ( K I S - KTS)*RAD1AN 2RB 

G6L = GRL*RACIAN 239 

I NC ( l ROW , J ) - BINC ? Q 0 

BIIJ) = 8 I NC*R AO I AN 291 

OE V ( I ROW t J > = Bt T A2< J ) - SKOCIJI 29 2 

BKTC(J) - K TO ' AC l AN 293 

SF(J) = FI 294 

CFIJI = F2 - FI 295 

WRITE ( I W » 2570 ) THLE, fHMAX, THTE, ZM, T, P, SSCAMB, G8L, SJ, 296 

X CHC ( J ) » ACC* RBF(J), FAIJ), FTIJI 297 

9C0 CALL POINTS 298 

CALL STACK 299 

IF ( ICONV.EQ.2 ) GO TC 920 300 

IF (ITER. EC. 81 ICCNV = 2 301 

6C TO 700 302 

920 WRITE! IW. 25801 303 

DC 530 J*1,NSTRM 304 

81 = BETAlf J)*RAO!AN 305 

B2 - BETA2( J)*RAOIAN 306 

SSI = BIIJ) - OKLE( IRCW, J) *RAOIAN 307 

KIC(J) * KIC(J)*RAOI AN 308 

OV = DEVI IROW, JMRAOIAN 309 

KOC(J) * KCC(J)*RAOl AN 310 

SKIC(J) * SKICI J)*RAOIAN 311 

SKCC(J) - SKOC ( J )*RAO I AN 312 

930 WRITE ( IW.2590 ) 8I(J), SSI, Bl, SKIC(J), KICU), DV, B2 313 

X.SKCCiJ), KOCIJ), BKTCIJI, SF(J). CF(J), CHK(J), FSM(J) 314 

CALL CCCRC 315 

GC TO 10 316 

2540 FORMAT (IHl HU 40X,52H*** TERMINAL CALCULATIONS WITH THE STACKED 317 

1 BLADE *** /// 43X.45H** INPUT DATA CORRECTED TO THE BLADE EOGES 318 

2 ** // 9X ,23 1 IH- ) ,7H INLET ,22(lH->, 9X,22(IH-> ,8H OUTLET ,22(IH-) 319 

3 // 7X,2(2X,1GHSTREAMLINE»7X» 5HAXI AL ,9X»5HAX I AL »5X, 10HTANGENTI AL , 320 

4 8 X ) /7X,2(4X, 6HRACI US » 7 *, 8HL0CATI0N, 6X, 8HVEL0CI TY ,6X,8HVEL0CI TV , 321 

5 9X ) / 7X,2( 3X,8H(INCFES ),6X,8H( INCHES), 6X,8H(FT/SEC ),6X, 322 

6 8H I FT/SEC ) »9X I // ) 323 

255C FCRMAT ( 3 X ,2F14.4, IX , 2F 1 4. 3* 5X, 2F14. 4, IX, 2F14. 3 ) 324 

25fcC FCRMAT (1HI /// 2X,8BL .E .RAO. , 2X , THMAX. TH. , IX, 8HT.F .RAO. , 2X , 325 

1 7HMAX.TH.,IX,8HTRAN.PT. ,1X,7HSEGMENT,2X,8H1ST SEG., 1X,7HBL0.SET, 326 

2 2X ,7HELEMENT, 3X,5HAERC. ,2X, IOHLOC.OF MAX , 6X , 18HL0CAL BLADE FORCES 377 

3 / 3 X, 6F/ CH0RD»2 ( 3X, 6 F/ CHORD ) , 3X, 7HPT .LOG. ,IX, 8HL0CATI 0N,2X , 328 

4 6HIN/0UT ,?X,8HS.S.CAM.,2X, 5H ANGLE , 3X,8HS0L IDITY,2X, 5HCH0RD,3X, 329 

5 8HC AMB.PT • , 3X,6HRAD I LS, 2X, 9HF0R.AX I AL, 3X, 5HTANG. / 27X,2(3X, 330 

6 6H /CHORD I , 2X»9HTURN .R AT E, IX ,5H( DEG) ,4X,5H( DEG) , 13X, 5H( IN.) ,4X, 331 

7 6H/CH0R0,4X,5H( IN.) , 3X, 8H( L8S/IN) , 2X, 8H( LBS/ IN) // ) 332 

2570 FORMAT ( 2 X ,F7.4, 5F9. 4 ,F8 .2, F9.2, F10. 4,2F9.4,F10.3, 2F10.4) 333 

258C FCRMAT (/// 4X , 4HINC . , IX ,8HS «S. INC. , 1X,7HIN.FL0W,2X, 334 

1 8H I N. BL ACE, 2X,8HIN.ANGLE,3X,4H0EV.,1X,8H0UT. FLOW, 2X,9H0UT. BLADE, 335 

2 X , 8H0UT .ANG.,2X,8HTRAN.PT.,2X,7HSH.L0C»,2X, 336 

j 5HCCV.CMAN. ,2X, 8HMI N .CHK. , 2 X, 8HMIN.CHK. / 3X , 5H ANGLE , 3 X , 5H ANGLE , 337 

4 3X,5HANGLE,4X ,5HANGL E ,4 X, 7HCN C0NE,3X,5HANGLE,3X,5HANGLE,5X, 338 

5 5FANGLE,4X,7H0N CONE ,2X,8HBL. ANGLE, 2X.8HAS FRACT, 339 

6 2 X , RH AS FRACT, 4X,4HAREA,3X,9HPT.L0C. IN / 3X, 5H( DEG) , 3X , 5H( DEG ) , 340 

7 ?X,5H(DEG),4X,5H(0EGI , 5X, 5H ( DEG ) , 4X, 5HIDEG) , 3X, 5H (DEG) , 5X, 5H( DEG) 341 

8,5X,5H(0EG>,5X,5H!0EG»*4X,7HCF S.S.,3X,7H0F S.S.,3X, 342 

9 6FMARG1N,3X ,9HC0V .CHAN. H ) 343 

2590 FORMAT ( 2X ,F6. 2 , 2F8. 2 , F9 .2 , F 10 .2,F9.2,F8.2 , 3FI0.2, 4F10.4 ) 344 

END 3 * 5 
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StPRCJMV i'.Pt;! 1 

C *** am. t.ss tf ; : \ t > i t v a r a 2 

H t A *. I NC , maC.f, m t. ! 3 

Cf W "I'M /V-.CF.S/ 4 

1 e- r as ( l * ’ ; ) . n, in.- cm*>. 1 1 1 , a ( it , CMiH n ii(i)t 5 

2 chcrgo in, ou; i >, F.rv/tn, i > •: < it, 1 1 mo id, 6 

3 iicssm. i v a k ( 1 1 , i n r i i , mi, i s i *j i ,’ ) » rr»A\b(ii, 'kipiiii, 7 

4 dui'iin, pMiu.ai, .'113,211, s(2,;n, k j nut> i i > » PHiiPin, e 

5 SLOPE ( 2 , ■ t ) , SOLID! II, TAI.f(l), TA«AX( 1 ) , T A f - ( 1 ) , T rH. E ! I ) , 9 

6 TPNXI11, TMTH(l), KLl (1!, T'MAXl 1), TOTHII, T..I (l), rjMAXU), 10 

7 T 0 T E 1 L ) , I i t I ( 1 > , T P ( 2 , I > , 7 AN S I 1 , ?. 1 ) , V T h ( 2 , 2 \ ) , V Z ( 2 , i l 1 , 11 

8 Z < 2 * 2 \ ) * MHUcMlI, /2TIPC1), ZMAX 11,21) 12 

CCP^ON /Scalar/ 13 

1 BETA, C°, C PH2 » C PH 3 , C. PH4 , CPH5, C PH6 , CPP3, CPP4, CPP 5 , CPPo, IA 

2 CPI, C V, TCP, CF, 0H2, CHC I , DLOSC, G, GAMMA, GJ, G J 2 , GR1, GR2 , 15 

3 GR3, ORA , oRi, H, 1, ICCNV, ICUUNT, I ERROR, 1 1 M , I PR , IROTOR, IP, 16 

A IRCW, ITER, I*, J, J«, MACH, NAA, NBHOWS, NHJB , NR CTOR , NSTN, NSTRM , 17 

5 NT I P, NTCPES, C*EGA, PI, PCA1, PR, RADIAN, RF, RG, ROT , TL , THAI , TU 18 

DIMENSION WCRCI20) 19 

CCMCN /LAPEL/ TITLE! 1 ° ) 20 

DATA WC’O / AHVEL.t AFCESI, AHCoOR, AHPUNC, AHALL , AH2-0 , AH3-0 21 

X, AFTARl, AHSUCT, AHCAFT, AHMQoI, AHCIRC, AHOPTI, AHSHOC, AHAPPR, 22 

X AHE SS, AFE lF, AH P , AH p , AH P / 23 

1? REAL ( I R , 1 C 30 ) (TITLE! II ,I = l,lfl> 2A 

WRITE UW.RJOG) ! T IT L e ! I 1,1=1,16) 25 

C *♦* RE AC THE SPECIFIC HEAT CCEFF IC IcNTS 26 

RE AC ( l R » 1 ' 2 ' ) (CPCO! 1 J, 1 = 1,6) 27 

WRITE IIW,2:6G) (CPCCI I I ,1 = 1,6) ?8 

REAL ! I R , l A 1 ", ) nSTRM, MOLE, ROT, ZBTIPUKOW), KBT I P ( l ROW ) , 29 

X ZBMJUI IPCM , RHHUB(I 3 fW>, NXCUT(IROW) 30 

I = 2 91 

PI - 3.1A1 C 9>7 32 

RADIAN -57.29578 33 

G - 3 2 . 1 7 A " 3A 

GJ = 25035. 2A 35 

GJ2 = 5?07*.a7 36 

OMEGA = RCT*g.2?31R5A/60.0 37 

RF - 1545 ,44/MrLC 98 

RG = R F * 0 39 

DCP - P. c /7 ? 3.12 40 

CPH2 = CPC' (2 1/2.0 *1 

CPH3 = C P C ( < 3J/3.0 *2 

CPFA = CPCC ! A ) / A.C 

CPH3 = CPCC ( 1/5.C ** 

CPF fc = CPCC(5)/6.0 *5 

CPP3 = CPCC! 31/2.0 

CPPA = CPCC (4)/ 3.0 47 

CPP5 = CPCC. ( 5 )/4.0 *8 

CPPfc = CPCri5)/5.C 

CPi = cpcr(i)/ccp 50 

CP = 0.24 51 

READ (IR,1 331 flLADFS! FROW ), SOLIDIIROW), TlLTtlROWJ, 52 

X PMATLIIRCTCR), CHOKE(IRCW) 53 

IF ! ROT.GT . .o I GC TC 70 5A 

ISTMI) = -2 55 

GC TC 30 56 

20 ISTMI) = ? 57 

3C R E A C ! I R , 1 ■' 3 0 ) TALclIRCwI, T RLE ( I ROW ) , TCLE(lROW), TOLEIIROW), 58 

X TATFIIROW), reTFlIRCW), TCTFIIROW), TOTE! I ROW I 59 

REAC (19,103?) TAMAX(IRCw), TBMAXIIROW), TCMAX(IROW), 60 
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X TO^AX! IRCw, , CHORDA < l^'w) , CHORD B ( l ROW ) , CHOKiX ( MCw > 

READ ( IR.ICA?) CP, OPE. AA, A3, Pb, CC . OU. Efc . EH 

WRITE ( IW,?OK I NSTRP. BILE, ROT, /RTIP(IROW), RB T I P ( I ROW ) , 

1 Z p EUB(IRCW), RpHCBIIHCW), HL AQfc S l I ROW ) , SOL I U ( I ROW ) , TIlTUROW) 
WRITE <IW,?02U> TALE(IRUw), TATEIIRUW), TAMAXllkCwi, TBLcIIR'Wl, 

1 TBTEIIROW), IBPAXIIRCW), CHCRCAI I ROW ) , TCLEIIROW), TCTtllRGW), 

2 TC * AX I IRCW ) , CHORCB ( IRCV.) , T DL c. ( I ROW 1 , T DT E ( I ROW ) , TDMAXI I ROW) , 

3 CHCROCI I RCW ) 

C *** SET CPTICN rtHICH CONTROLS THE AMOUNT OF INFORMATION OLSIRtU 
IF IOP.NE.UCRCI 5 > ) GC TO A3 
NCP* ( IRCW) = 6 
GC TC 60 

AO IF ICP.NE.WORCI A) ) GC TO 50 
NCP T 1 1 ROW ) = 5 
GC TG 120 

50 IF ICP.NE.WORDI 3) ) GC TC 90 
NCPTIIROVM = A 

6C IF I OPO.NE .WCKD ( 18 M GC TO 7C 
NCPTIIRCW) = NOPTIIRCM ♦ 30 
GC TC 120 

70 IF I OPO.NE , WORD! 20 I > CC TO 8C 
NCPTIIROW) = NOPTIIRCM ♦ 20 
GC TC 120 

80 IF (CPO.NE.WCROI 1911 CC TO 120 
NCPTIIRCW) = NOPT(IRCW) ♦ 10 
GC TC 120 

90 IF ICP.NE.W0RUI2) ) GC TG 100 
NCPTIIRCW) = 3 
GC TC 120 

ICC IF (CP.NE.WCRCI 1 )) GC TC 11C 
NOP Til RCW ) = 2 
GC TO 120 

11C NCPTIIROW) = 1 

12C IF lABSITTLTI IROW) ).LT.l -O.C) TILTIIR0W1 = T I L T I I ROW ) /RADI AN 
IF I ISTNI l ) .LT.O ) GO 1C 1A0 
WRITE I IW, 2355 ) 

IF I CHOKE! IRC*). Lt. 0.0) GO TC 130 

WRITE IIW.2360) CHOKE I IRCW ) , BMATL I IROTOR ) 

GC TC 160 

130 WRITE IIW.237C) BP AT L l I ROTOR ) 

GC TO 16? 

1AC IF ICHOKE ( IRCW ) .LE.O. C ) CO TC 150 
WRITE IIW.2360) CHOKEIIRCW) 

GC TO 160 

15C WRI TF I IW. 237G ) 

16C IF I NOPT I I ROW ) «L T . 3 ) CC TO 620 
I TABLE = 0 

C ♦** SET BLADE ELEMENT DESIGN CONTROL OPTIONS AND READ NECESSARY INPUT 

A1C IF I AA.EQ.WCRDI7 i ) GC TO A2G 
IF (AA.EQ.WCK0I9) ) GC TO A30 
IF I AA. EQ. WORD I 8 ) ) GO TC AAC 
I INC I I RCW ) = 1 
WRITE I l W, 2375 ) 

GC TO A3A 

A2C I INC 1 1 ROW ) = 2 
WRITE IIW.2380) 

GC TC A3A 

A 3C IINCIIRCW) = 3 
WRITE (IW.Z390) 

ABA DC A 36 J = 1,NSTRM 
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69 
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74 

75 

76 

77 

78 

79 
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82 

83 

84 

85 

86 

87 

88 

89 
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92 

93 
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95 

96 

97 

98 

99 
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111 
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113 
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4 3* INC ( ; '-ti'w, I) -f.o 121 

r.r f <,«•••> 122 

440 «LAC (IR.iCSO) ! INI < I ■>( 'w , J ) , J = 1 ,NSTRR ) 123 

I T A p L ir - 1 124 

! F (AH •. t ’.i • Ml. RD ( 1 6 I I Gf TC 445 125 

I INC (I W ) A 126 

WRITE (1W, 21921 127 

GC TC 459 128 

44 5 l INC! IRCW) - 5 129 

^ « I T E ( ! W » 2 i 9 4 ) 130 

450 IF ( 3B. EC. WORD! 7 I ) GO TC 460 131 

IF ( BB.EQ.WORO! 10)) GC TC 470 132 

If iBB.EQ.4CRC! ID) CC TC 48C 133 

IF <B8. EQ. WCRC<8) > GC TC 450 134 

ICF.V(IRCW) = 1 135 

WRITE ( I W, 2 400) 136 

GC TO 484 137 

46 J 10EVURGW) = 2 138 

WRITE !IW, 24101 139 

GC TC 484 140 

47C ICev(IRCW) = 3 141 

WRITE I IW , 2420 > 1*2 

GC TC 484 143 

48C IOEVURCW) = 4 144 

WRITE ( I W ,24 30 ) 145 

484 DC 406 J=1»NSTRM 146 

486 DEV ( IROW, J ) = -0.0 147 

GC TC 500 148 

4GC I CEV ( I ROW ) = 5 149 

WRITE IlW.2435) 150 

READ ! IR » 10 30 ) (DEV! I RCW » J ) » J=1 .NSTRM ) 151 

i TABLE = 1 152 

5CC IF <CC.EQ.WCRD! 131 ) GC TC 51C 153 

IF ( CC .EO . WORD I 8 1 ) GC TO 520 154 

1 GEC ! I RCW ) = 1 155 

CC 505 Jd, NSTRM 156 

5C 5 PH ( IROW, J) = 1.0 157 

WRITE (IW.2440) 158 

GC TC 530 159 

5 1C I GEC! I ROW) = 2 160 

WRITE ( I W , 2450 ) 161 

514 OC 516 J=l. NSTRM 162 

516 PHI! IROW, J ) = -0.0 163 

GC TC 530 164 

520 I GEC ( I ROW ) = 3 165 

READ ! IR, 1030 ) I PHI ( IROW ,J ), J=1 .NSTRM ) 166 

I TABLE = 1 167 

WRITE ( IW , 2455 ) 168 

530 IF ( DD.EQ . WORD! 14I.ANC.IGE0! IROW) .NE. 1 ) GO TO 540 169 

IF < DD.EQ . WCRCI 6 ) ) GC TO 550 170 


I TRANS ! IRCW ) = 1 
OC 535 J=l, NSTRM 
535 TRANS! IRCW , J ) = 0.5 
WRITE < IW , 2458 ) 

GC TC 560 

540 ITRANS! I^CWJ = 2 
WRITE ( IW , 2460 ) 

CC 545 J=l, NSTRM 
545 TRANS! IRCW.J ) = -0.0 
GC TC 560 
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55C I TRANS! IRCW) = 3 

READ ( I R . 1 * 3 0 ) (TRAMS( IRTW.J >,J=l,NSTRM) 

ITAeifc = 1 
WRITE 

DC 552 J=l. NSTRM 

IF (TRANS! IROW, J).LT.C. 0. OR. TRANS! I ROW, J ) .GT . I .0 ) GO TO 554 
552 CONTINUE 
GC TG 560 

554 WRITE UW, 2465 1 IRCW, J 
IERRCR = I 
RETURN 

56C IF ( EE .EG - WCRC ( 8 ) ) GC TC 570 
IWAXURCW) = I 
DC 565 J=l, NSTRM 
565 ZMAXUROW,J) = 0.0 
WRITE I 1W,2470) 

GC TC 580 

570 READ (IR, 1030) < ZMAX IIROW, J ) ,J=i, NSTRM) 

ITABLE * l 

IF (E8.EQ.W0RDU7) ) GC TC 572 
IMAXURCW) = 2 
WRITE ( IW,2472) 

GC TO 574 

572 i*4M« !RCw ) = i 
WRITE (IHi 2474) 

574 !«= ( I TRANS ( i ROW ) .EQ. 2 . ANC. I MAXI IROW ) .EQ.2 ) GO TC 580 
DC 576 J=l, NSTRM 

ZT = Z MAX ( IROW » J ) 

If- ( I M AX ( IROW). GO. 2) Z T = Z T ♦ TRANSUROW.J) 

IF UT.LT.C.l.OR.ZT.GT.O.9) GO TO 578 
576 CONTINUE 
GC TC 580 

575 WRITE C IW , 2475 ) IROW, J 

I ERROR = 1 
RETURN 

58C IF ( ITABLE. tC.O) GO TC 620 
WRITE ( I W, 2480 I 

IF ( UNCI IRCW). EG. 5> WRITE! I W, 2482 ) 

IF UMAX! IROW). EQ.3) CC TO 582 
WRITE (I W , 2 4 84 ) 

CC TC 534 

532 W° ‘ TE < IW , 2486 ) 

564 WRITE ( !W,2488) 

CC 500 J= l » NSTRM 

WRITE !IW,2490) J, I NC ( I ROW, J) , OEV(IROW,J), PHIUROW,J), 
x transurcw.j), zwax(IR0w,j) 

I NC ( IROW, J ) = INCIIRCW, JI/RACIAN 
590 CEVlIROW,J) = DEVIIROW, J I/RAC1AN 
C **♦ REAL IN 8UA0E ELEMENT INLET AND OUTLET CONDITIONS 
62C DC 630 J*l, NSTRM 

63C REAC ( IR, 1030 ) RU-i,J>, ZII-l.J), VZU-l.J), VTHU-l.J), 

X SLOPE ( I - 1 , J ) , TO ( I- 1 , J ) , POU-1'J) 

DC 640 J=l, NSTRM 

640 REAL UR, 1030) R(I,J), Z(I,J), VZU,J), VTHU.J), SLOPECI.J), 
X TCI I » J) , PC(I,J) 

WRITE (IW.25C0) 

WRITE ( IW , 2520 ) 

OC 650 J=l, NSTRM 
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65C WRITE (IW, 25301 J, R(I-l»J)» Z(I-1»JI» VZII-1.J). VTH(I-1,J), 

X SLCPE ( I- 1 , J ) » TO( I- l ♦ J ) » PCII-l.JI 
WRITE ( IW • 2510 ) 

WRITE ( IW , 2520 ) 

0C 660 J=l,NSTRM 

WRITE (IW, 25301 J, R(I,JI» Z(I,J)» VZ(I»J)» VTH(I,J), SLOPEII»J)» 

X TO ( I , J ) » P0( I »J> 

PCII-ltJ) * P0( l— 1»J)PIAA,0 
PC( I ,J> = PCI l ,J)*14A.C 

SLOPE(I-l.J) = TAN(SLCPE(l-l,J)/RADlAN) 

660 SLOPE C I , J I = T ANC SLOP E(I ,J)/RAD1AN) 

WRITE (IN, 25401 
RETURN 

10CC FORMAT (18*4) 

1010 FORMAT CI5,5X,6F10.4, 110) 

102C FCRRAT I3E20.8) 

103C FCRRAT (8F1C.A) 

1040 FORRAT (A4,2X, A4.2A4, 2X, 31 A4,6X),2A4.2XI 

2000 FORRAT I1HI ///// 41X.48F4** INPUT DATA FOP COMPRESSOR 0ES16N PR06 
IRAN **• //// 30X.18A4 ) 

2010 FORMAT (3X,9HNUMBER Of ,4X,9HM0LECULAR,4X, 10HP0TATI0NAL.3X, 

1 9HT IP AX1AL.4X.10HT IP RA01 AL , 3X.9HHUB AXI At ,4X. 10HHUB MADIAL.3X, 

2 9HKUN8ER OF .7X. 3HTI P»6X »10HSTACK LINE / 2X.llHSTREANLINES.5X. 

3 6MWEIGHT .TX.5HSPEE0.6X.4I 10HSTACR L0C..3X I ,2X .6HBLADES.6X. 

4 8HS0L I01TV , 3X .10HTAN6 « TILT / 31X.5HIRPHI .7X.4I SHI INCHES) .5X1 . 

5 25 X»9HC DEGREES) // 7X,I2»F15.3,F13.1,4F13.4,F12.1»F14.4,F12.3 I 
2020 FORMAT (// 22X,91H* POLYNOMIAL CONSTANTS FOR THE FOLLOWING FUNCTIO 

INS CF RADIUS WITH TIP = 0 ANO HUB » 1 * // 25X.17HL.E. RADIUS/ 

2CHGRD, 8X.17HT.E. RAD I(jS/CH0RC»6X,20HNAX. THICKNESS/CH0R0.8X. 

3 15HCH0R0/T I P CHORO // 1 IX * 8HC0NST ANT . IOX.3IF10.4.15XI / 11X, 

4 6HLINEAR.12X.4I F10»4» 15X) / HX.9HOUAORATIC.9X.4IF10.4.15XI / 

5 11X.5HCUBIC»13X,4IF 1C ,4,15X1 /// 1 . Mtur . 

2060 FORMAT ( ///39X.53HTHE SPECIFIC HEAT POLYNOMIAL IS IN THE FOLLOWING 

1 FORM ,// 9X,4HCP =*E12.5»3H ♦ »E12.5»5H*T ♦ ,E12,5,8H*T**2 ♦ . 

2 E12.5,8H*T**3 ♦ ,612.5,8H*T*44 ♦ ,E12.5.5HMT*M5 ////I 

2355 FORMAT (/ 45X.42H* INPUT BLACE ELEMENT DEFINITION OPTIONS * // 

1 8 X .9H 1NCI0ENCE.9X.9FCEVIAT ICN.7X , 12HTURNING RATE , 7X » 10HTR ANS I T I ON 
2, 6X , 14HMAX. THICKNESS, 9X,5HCH0KE,4X,22HBLADE MATERIAL DENSITY / 

3 10X ,2 ( 5H ANCLE » 13X I, 51- RATIO, 2C 13X»5HP0INT1 , 12X,6HMARGIN, 10X, 

A 10HLB/I INI**3 // I 

2356 FCRRAT 1/ 45X.42H* INPUT BLACE ELEMENT DEFINITION OPTIONS * // 

I 8X , 9HINC ICENCE,9X,9HCEV IAT I0N,7X, 12HTURNING RATE,7X, 10HTRANSI TION 
2 , 6 X , 14HM AX • THICKNES S, 9X .5HCH0KE / 10X.2I5HANGLE.13XI .5HRATI0, 

3 2( 13X,5HPCINT),12X, 6HMARGIN.10X // I 
236C FORMAT I S 8X, F7.4, 10X ,F8 .5) 

237C FCRRAT UCCX.4HN0NE, 12X,F8,5) 

2375 FCRRAT ( 1H*, 10X.3H2-C) 

2380 FCRRAT (1H+, 10X, 3H3-C I 
239C FORMAT U H*, 8X,7HSUC T ION I 
2392 FORMAT I IH+,9X,5HTABLE > 

239A FCRRAT ClH-», AX, 16HTA8LE (S.S.REF.II 

2AC0 FCRRAT (IH-»,28X,3H2-CI 

2A1C FORMAT (|N«, 28X.3H3-C t 

2A2C FORRAT ( 1H*, 2 3X , 12HC ARTERS RULE I 

2A3C FCRRAT Cl H-», 2 IX, 16HMCC I F IED CARTERS! 

2A35 FCRRAT (1H-*.2 7X,5HTA8LE ) 

2AAC FCRRAT (l H*, A IX ,1 2HC IRCULAR ARC) 

2A50 FORMAT C IH*,A4X ,7hOPT IRUR) 

2A55 FORMAT ( 1H-*,A5X,5HTABLE ) 

2A58 FCRRAT (lH + ,f>9X,12HC IRCULAR ARC) 

2A6C FORMAT ( l u ♦ ,fcoX , 10FS . S . SHOCK) 

2A6? FORMAT (IH-*»63X,5F TABLE) 
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2*65 FORMAT C / / / 12X,53HTHE INPUT TRANSITION POINT LOCATION OF SLADE RO 301 

1W NC.,IZ,2CH, CN STREAMLINE NO.,I2,3GH, IS NOT ON THE BLADE ELEHEN 302 

2T. > 303 

2*70 FORMAT ( 1H* ,78X, 10HTR ANS . PT.) 30* 

2*72 FORMAT I1H+, 7*X, 18HT ABLE (TRANS. REF. I) 305 

2*7* FORMAT (IH+,75X» 16HT ABLE ( L.E.REF. I I 306 

2*75 FORMAT </// 3X.55HTHE INPUT MAX. THICKNESS PT. LOCATION OF BLADE 307 

IROW NO. , I 2, 20H , ON STREAMLINE N0.,I2,*9H, IS NOT WITHIN THE RE3UIR 308 

2ED 10 TC 90 PCT. C^SC. ) 309 

2*80 FORMAT ( IHI ///// *1 X ,*9F* TABLE OF BLADE SECTION DESIGN VARIABLES 310 

1 INPUT * //26X.80H (VARIABLES CONTROLLED BY OTHER OPTIONS WILL APPE 311 

2AR AS MINUS ZEROS IN THE TABLE.) // ) 312 

2*82 FORMAT I 29X , 15HSUCTI CN SURFACE ) 313 

2*8* FORMAT ( 1 IX » 1QHSTREAML INC, 8X , 1SHINCI DENCE ANGLE »5X» 31* 

1 15HDEVI ATION ANGLE* 2X» 2CHINLET/0UTLET TURNING, 2X, 315 

2 16HTRAWSIT ICN/CHORD, 3X* 18MIMAX - TRANSITION) ) 316 

2*86 FORMAT IIIX,10HSTREAMLINE,8X,15MINCI0ENCE ANGLE, 5X» 317 

ii 1 l 5M DEVIATION ANGLE* 2X,20HINLET/OUTLET TURNING, 2X, 318 

2 16HTRANSIT ICN/CHORD, 5X, 14HMAX. THICKNESS I 319 

I 2*88 FORMAT f 1 3X , 6HNUMBER , 2X, 21 11X,9HI OEGREES) ) ,10X, 10HRATE RATIO, 11X, 320 

'§ l 8HLOCATICN,9X,1*MLOCATION/CFORO // ) 321 

I 2*90 FORMAT I 15X, I 2,2X,5( 12X, F8.* ) ) 322 

| 2500 FORMAT ( 1H1 // SIX, 3CH** INLET STATION INPUT OATA ** ) 323 

§ 2510 FORMAT I // 51X.31M* CUTLET STATION INPUT DATA ** I 32* 

* 2520 FORMAT I / 1X,2I3X,10FSTREAMLINE),9X,5HAXIAL,IIX,5MAXIAL,8X, 325 

1 10FTANGENT I AL,6X,10FSTREAML INE ,2( 6X, 10HS1 AGNATION) / 6X,6HNUMBER, 326 

* 2 7X,6HRAOIUS,9X,8HLOCATICN,2(8X,8HV6LOCITY»,IOX,5HSLOPE,8X, 327 

=•' 3 1 IHTEMPER ATURE»6X,8HPRE SSURE / 18X,2I BHI INCHES I , 8X) ,2 18HIFT/SEC ) , 328 

| * 9X),9H(0EGREES)»7X,8MDEG.R.) ,9X,6H( PSI A ) // ) 329 

- 253C FORMAT I 7X, 1 3, 5X , F10 . *,F 16.*, F17. 3,F16.3,F 16.5,F15.2,F 16.3) 330 

25*0 FORMAT IlHl // *9X,35H** PRINTOUT FOR EACH ITERATION *** I 331 

| ENO 332 


FUNCTION CPF(TL) 1 

>** CALCULATES CPCT) OF TFE FLUID AT TEMPERATURE ,T 2 

REAL INC 3 

COMMON /VECTOR/ * 

1 BETAS(1»21 ) , 8MATLI1), BLAOESIll, CHOKEU), CHORDAIl), CHORDS ( 1 ) , 5 

2 CHCRDC(l), CPCO( 6) , CEV(1,21), IDEVU), IGEO(l), IINC(l), 6 

3 ILCSS(l), I MAX ( 1 ) , INCH, 21), ISTNI2), ITRANSI1), NOPT(l), 7 

* NXCUT(l), PHI ( 1,21) , P0(2,21), RI2.21), RBHUBI 1 ) , RBTIP(l), 8 

5 SLCPE (2,21 ) , SOLIO(l), TALE! 1 ) , TAMAX(l), TATE(l) , TBLE(l), 9 

6 TBMAX(l), TBTEI 1 ) , TCLE(l), TCMAX(l), TCTEIl), TDLE(l), TOMAX(l), 10 

7 TDTE(l), TILT ( 1) , TC(2,2l), TRANS(1,21), VTHI2,2l), VZ(2,21), 11 

8 Z(2, 21), ZBHUBIl), ZeTIP(l), ZMAX( 1,21) 12 

CPF = CPCC ( l )♦ (CPCOI 2 ) -M CPCOI 3)«-(CPCOI4 )♦( CPCOI 5)* CPC0I6)*TL)*TL) 13 

X *TL)*TL)*TL 1* 

RETURN 13 

END 1* 


\ 
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FiJNCT .'CN T£MO|HD> l 

C*** CALCULATES Tc**PFf> ATU° 6 ASSOCIATED WITH AN ENTHALPY CHANGE, HD. 2 

PEAL IN<', MACH 3 

COMMON /VEC T3R / A 

1 BETAS ( I » 2 1 ) » Bmatl(I), BLADESIl), CHOKEIl), CHDROAIl), CHQPDB(I), 5 

2 CHnaocdi, 'pcoim, devil, 2i>, idev(i», igfdiii, unciii, /> 

3 KJSSm, i«AX(ll, INC(I,2U| I STN (21* ITRANSdl, NOPTII1. 7 

4 NXCJT(I), PH I ( 1« 21 ) t POI2.21I, RI2.2I), PRH'JBdl, RRTIPUI, 8 

5 SI OPE I 2, 21 I » SOL ID! II, TALF(l», TAMAXC1), TlTFIll, TRLFd), 9 

6 1 RMA X ( 1 ) , TBTFd), TCIEU), TCMAXdl. TC T F ( t ) , TOLFI1), T D M 4X d I * 10 

7 TDTF(l), TILT(l), TD(2,21), T» ANSI 1,2 1 » , VT 3(2*21), V7I2.2U, 11 

8 Z ( 2, 2 1 ) , 7BHIIBI1), 7 BT IP I 1 I , 7MAX(l,2l> 12 

COMMON /SCALAR/ 13 

1 BETA, CP, C»H2, CPH3, CPh*, CPm*. CPH6, C.PP3 , CP»4, CPP5, CPP6, 14 

2 CPI, C V, OCP, OP, OHC, DHCI, ">• , G, GAMMA, GJ, GJ2, OR 1 , GR2, 15 

3 G»3, OR 4, GR5, H, I, ICONV, IC , IERROP, 1 1 IN* I PR , IROTOR, IR, 16 

4 I R OW , ITFR , IW, J, JM, MACH, NAc, NBROWS, NH OB,NRO T OR ,NST N,NST RM, 17 

5 NTIP, NTUBES, OMEGA, PI, POA1, PR, RAOIAN, RF, RG, ROT ,Tl ,TOAl ,TU 18 

IF (ABSIHO/TUI.LT.O.OOI) GO TO 15 19 

IC * 0 20 

CVC * 5 .0£—09/48S( HO/ TUI 21 

IF (CVC .LT.O.OOOOll CVC * 0.00001 22 

10 TEMP = TU - MO/CP 23 

T SLIM * TU*TEMP 24 

SOM * CPCOtll ♦ CPH24TSUM 25 

PROO * TEMP4TEMP 26 

TSUM * TSUM*TU»PROO 27 

SOM a SUM ♦CRH 3*TS UM 28 

PROO * PPOOMTEMP 29 

TSOM a TSUM*TU*PROO 30 

SOM a SUM +CPH4* TSOM 31 

PROO * PPOO*TEMP 32 

TSOM a TSUM*TU4PR0D 33 

OT* TO-TEMP 34 

HN= DT*( SUM^CPH5*TS0M4CPH6* (TSOM*TU*-PROO*TEMp) | 35 

IF (ABSd.O - HN/HDI.LT.CVCI GO TO 20 36 

IC « IC ♦ 1 37 

IF UC.GT.IOI WPTTE (IW, 20001 J, TU , HO, HN 38 

IF (IC.GT.15I GO TO IB 39 

CP * WN/OT 40 

GO TO 10 41 

15 TEMP = TO - HO /CP 42 

GO TO 20 43 

IB IEPROR = l 44 

20 RETURN 45 

2000 FORMAT ( //14X ,34HINSTABIL ITY IN FUNCTION TF MP J «, 13,150 UPPER 46 

l TEMP a,F8*2, 13H INPUT OH a, F8. 4,120 PRES. 00 a ,F8.4 ) 47 

ENO 48 


FUNCTITN PRAT IO(TO 1 1 

C-*** CALCULATES PRESSURE RATIO BY ISENTROPIC PROCESS FOR A 2 

C TEMPERATURE DIFFERENCE 3 

REAL INC, MACH 4 

COMMON /VECTOR/ 5 

1 BETAS( 1,21), BMATLdl, BLADES! 1 1 , CHOKEIll, CHORDA (II , CHOROfldl, 6 

2 CH OR 0 C ( II, CPC0(6>, DEVI 1 , 71 1 , IDEV(l), IGEOdI, IINC(1I, 7 

3 ILOSSdl, IMAX (II, INC(l,?l», I STN (2 1 , ITRANSd), N0PT(11, 8 
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4 NX CUT (11« Nil 1,211, P0*2,21>, R<2,21>, 'Nlllll, RRTIPdl, 

5 StOPE(2»21l* SOI 1 0* l ) » TAL E * 1 1 » TAMAXd’ T A TF ( l ) , TRLfd), 

6 TBMAX*1», T8TEOI, TCLE(l), TC MAX (IK (lit TOl f ( 1) , TDMAX(ll, 

T TOTE (1)» TILT* 11, TM2»2l>. TRANS* 1 1 2 l • t VT-M2 2 l > * VZ(2,2l»* 

8 7 ( 2? 2 1 1 * 78H08* 1 1 • 7BTl®d), ZMAXd,2l) 

COMMON /SCALAR/ 

1 BETA, CP, CPH2, CPH3* CPH4, CPH5, CPH6, CPP3 , CPP4, CPP5, CPP6. 

2 CPI, CV, OCP, DE, OHC , OHC ! , PIOSC, G, GAMMA, GJ, GJ2, GR1, GR2, 

3 GR3, GR4, GR 5, H, I, ICONV, ICOUNT, IERROR, IIN, IP®, IROTOR, IP, 

4 IROW, ITER, IW, J, JM, MACH, NAB, NBROWS, N-*UB »NROTOR , NST N»NST RM, 

5 NT IP , NTUBES, OMEGA, PI, POAi, PR, RADIAN, RE, RG, ROT »TL ,TCIAl ,Tl) 
TSUM » TH ♦ Tl 

SUM « CPCO* 21 ♦ C PP 3* T SUM 

PROD * TL*Tl 

TSUM » TSUN*TH ♦ PR 00 

SUM * SUM ♦ CPP4*TSUM 

PROD * PRCO*TL 

TSUM « TSUMATH ♦ PR CIO 

PRAT10 • (TH/TL |**CPl*EXP * < TH-T t ) /OCP* < SUM*CPP5*TSUM*CPP6* ITSIIMATH 
X ♦ PRCC*TL»n 
RETURN 
ENO 
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BLOCK DATA 1 
COMMON /PTS/ FSB* 13) 2 
DATA *FSB*K),K— 1,13) /•0t,05t*12,#2,#3,*^,*5,*6,*7,*8,»88»*95,l*0/ 3 
cir 4 


SUBROUTINE BLADE l 

**• THIS RULTINE SERVES AS A CONTROL OF THE BLADE ELEMENT DESIGN. 2 

*** INCIDENCE A‘4C DEV I AT ICN ANGLES ARE SET IN THIS SUBROUTINE. 3 

REAL INC, I2C10, I 3D,KC,KI ,K I C ,K I S,KM, KOC , KTC , K TS , MACH, MD , NI 4 

CCMMON /VECTOR/ 5 

1 BET AS (1,211, RMATLI1), PL AOE S ( 1 1 , CHOKEdl, CHORDAdl, CHURDBdl, 6 

2 CHCRDC <11, CPCC < 6 1 , CEV(I,2I), IOEVU), IGEOdl, IINC(l), 7 

3 I LOSS ( 1 ) , 1 MAX * 1 1 , INC* 1,211, ISTNtZI, ITRANSd), N0PT*1), 8 

4 NXCUT * 1) , PH I ( 1 , 2 1 1 , PC*2»21 1 , P.*2,21>, RBHUB* 1 ) , RBTIP(l), 9 

5 SLCPE*2,21), SOLID* 1), TALE ( i I , TAMAXdl, T ATE * 1 1 , TBLE d 1 , 10 

6 TBMAX(I) , TBTEdl, TCLE*1», TCMAX*1), TCTE*1), TDLE * 1 1 , TDMIAXdl, 11 

7 TCTEU1, T 1 LT ( 1 1 , TC*2,21>, TRANS*1,21), VTHI2.21), VZ(2,21), 12 

8 212,217, Z8HUB < 1 1 , ZHTIF(l), ZMAX*l,2l» 13 

CCMMCN /SCALAR/ 15 

1 BETA, CP, CPH2 , CPH3, CPH4, CPH5, CPH6, CPP3, CPP4, CPP5, CPP6, 15 

2 CPI, CV, CCP, OF, DEC, CHCI, OLOSC, G, GAMMA, GJ, GJ2, GR1 , GR2, 16 

3 GR3 , GR4 , U«5, H, I, ICCNV, tCOUNT, IERROR, IIN, IPR, IROTOR, IR, 17 

A IRCW, ITER, IW, J, JM, MACH, NAB, NBROWS, NHUB, NROTOR,NSTN, NSTRM, 18 

5 NT1P, NTIPtS, OMEGA, PI, POAI, PR, RADI AN, RF, RG, ROT, TL , TOA 1 ,TU 19 

CCMMON 20 

1 BE T A 1 1 2 1 ) , B t T A 2 1 2 1 1 , CCSA*21I, CDSL*211, DKLE*l,21>, DL ( 2 1 1 • 21 

2 G AM**( 2 1 1 , QRArt* 21 ) , RELMI21), RPR 1(211, REl (211, RE2*211, 22 

3 R E 3 * 2 1 ) , RE 4 ( 2 1 1 , RE5I211, RVTH*21>, SINA*21), SINL*21», SL0S*211 23 

4 , SON IC ( 21 1 » THE T AP ( 2 1 , 1 3 1 , THE T AS * 21 , 1 3 1 , TREL 1(21), TSTAT*21), 24 
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5 VM21), V T SC ( 2 1 ) , XHSRIl.m. YBARtl,21>, ZPI21.13), / S ( 2 1 * 1 3 » 

C L M *CN /PCI IV/ 

1 CHC(21i, C H K ( 2 1 ) » CCSA2(21), FS*<21), K!t(2l), K OC ( ? 1 > . RoA<21), 

2 REC (2*21 ) * RPTE(2,2i>, SINA2I21), SKICI21), SKUC I 2 1 ) , TALPI21), 

3 TC A ( 2 1 ) * TfcC(2,21>, TCB ( 2 1) , T TKP ( 2 1 ) , T T« S ( 2 l ) , YCCL E t 2 5 ) , YCC TE ( 25 ) 
M ZCCLE <25 ) , ZLCTE ( 25 ) * ZCOA(?l) t ZfcC(2,21), ZTKP<21>, /TRSI2U 

CCMRCN /et ACES/ 

1 AMACH, ACC. A1SCAS, A1SC.M, HINC, CALP, CCC , CtPE, CGBL . CHORi>, 

2 CUC, CMC, CKIS. Cl. C 2 . (JKAPPA, ORCE, DRCGI, DRC^S T . ORC*T, 

3 CRCOI , ORCT, QRCTI, CR1, CSME, OS*! , OSOI, OSOT , OSSE, OST, DSTl, 

4 EMT, FI, F 2 , G6L , ICL, IGC, I PASS, KIS, KM, K1C. K!S, P, PFLOS, 

5 RCC, RCM, RCMS, RCT , RC1, RECGI, REE, RENT, RET, RET l , RMSJ, RTRC 
6 , R 1 , RIC* R2 ♦ SALP, SEPE, SG AM, SGML, SJ, 5KTC, SKTS, SLJU, T, 

7 TEPE, TGBLL , THC, THLE, THMAX, THTE, TKTN, TL S , WC1, YB1, YB2, ZM 
IGC =0 

RT1 = R<1-1,1> 

RT2 = RU ,l» 

RCI = RTl - R ( I-1,NST«MI 
RC2 = RT2 - R( I ,NSTRM» 

CFCRCT = CPC(l) 

TLS= CZBTIRIIROW) - ZBHUBI I ROW I ) / 1 RBT IP ( IROW ) - RBFHJBI IROW) I 
IF (ABSITILH IRCWD.GE.ICO.O) GO TO A 
STILT = SIMTILTIIROW)) 

CTILT= SCRTI1.0- STILT**2> 

GC TC 6 

A HLBT = TILT< IROWT/IOO.O 
! ^ = hU6 T 

TIPT = TAM (TILT! IROW) - 1CO.O*FlO AT I IH ) )/RAC I AN > 

IF = I H - ( IH/100)*1CC 
HLBT = TAN(ELCAT( IHJ/RAOIAN) 
fc R I = R ( I- 1 , J ) 

R2 = R ( I , J ) 

RR I = (RTl - RD/RDI 
RR2 = (RT2 — K21/RC2 

TFLt = TALE ( IROW) ♦( TBLE (IROWUITCLE I IROWUTDLe < IROW) *RRl ) *RRI ) *RRI 
TFRAX = ( T AM AX ( 1 ROW ) ♦ (TBMAX(IROW) ♦ (TCMAX(IROW) ♦ TOMAX(IROW)* 

X R R 1 )*RR! )*KR1 )/2.0 

THTE = TATEI IRGW)4(TBTE( I ROW) 4- TCTEI IROW M TOTE (IROW ) *RR2 ) *RR2 I *RR2 
CHCRO = CHC(J) 

RIC = Rl/O-CEC 
C P = PHIURC ,J) 

T = TRANS ( I R(JW, J ) 

7F = ZMAXilkCW.JI 

IF I IMAXI IPCW).NE.3) Z* = ZM ♦ T 

Bl = BET A 1 1 J ) 

B2 = RETA2IJ) 

B2EC = R2*VTH( I , J ) /R 1 

IF ( I STM I ) , GT .0 ) B2EC = Rl*CMEGA/ 12.0 - B2EQ 

B2EC = ATAM B2EC/(VZ ( I-i,J»*SQRTf 1.0 ♦ SLOPE (1-1 ,J )**2) ) ) 

SJ = SOLIOURCW)*(RTI ♦ RT2)/(R1 + R2 >*CHORO/CHORDT 

CCC= 1.0 - THLE - THTE 

Cl = T- THLE 

C2 = l.C - T - THTE 

THC = THLE - THTE 

T ALP C J) = <R2-R1)/IZ( I,J>- Z(I-l,J>) 

CALP = SORT! 1.0/ ( TALP(J)y*2*1»0) ) 

SALP - TALP(J)*CALP 

TEPE = IHO/CCC 

CEPE = l.C/SCRT(l,Q«-TCPE**2) 

SEPE = TFPE*CEP£ 


>121,13), / S ( 2 1 , 1 3 ) 
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« *** LOCATE THE BLADE ELEMENT STACKING POINT REFERENCE WITH 85 

RESPECT TO THE HUB WALL ^TACKING POINT. 86 

RC A ( J ) = (Rl-RBHUBI I hCW ) ♦ (ZPHUBCIROW) - Z II- 1 , J H * T AL P I J ) ) / 87 

X (1.0 - TALP(J)*TLS) 88 

ZCDA(J) = RC A ( J ) *TL S 8< ? 

RCA(J>r RCA(J) ♦ RBHU B ( l ROW ) 90 

PR= RBHUBI IRCWI/RCAI J) 91 

IF ( ABS (TILMI ROW II.CE.1CO.O) GO TO 12 92 

TCA(J)= ARSIMSTILTMSCRM l.C - ( RR*ST I L T ) **2 ) -RR*CTILT)> 93 

GC TO 1* 94 

12 TCACJ) = (RCA(J) - R6EU8( IROW) »/(R8TIP( IROW) - RBHUB (I ROW )) * ( T IPT 95 

X - HUBT) ♦ (HUBT - R BHUB < I ROW ) / (R9T l P( IROW I - RBHUBI IROW) )*( TIPT - 96 

X HUBT) )*ALCG(RCA( J»/RBHUP( IROWI I 97 

16 IF (ISTMII.LT.O) TCA(J) = -TCA(J» 98 

IF (ITER.GT.l) GO TO 15 99 

**• AN APPROXIMATION OF THE LOCATION OF THE STACKING POINT WITH 100 

C RESPECT TO THE BLAOE ELEMENT LEADING EOGE CENTER FOR INITIAL STACK 101 

AREA = I2.C*THMAX ♦ THTE ♦ ZM»THCJ/3.0 102 

A * ZM*I2.0*THMAX - 2.0*THTE ♦ ZM*THO)/12.0 ♦ I THMAX ♦ THTEJ/4.0 103 

XeARlIRCW.JI = A/AREA - THLE 106 

YB1 * ITHLE ♦ THTEI/2.0 105 

YB2 * CCC*I4.G - I 4 .C ♦ 1.0/THM4XI*YBU/10.0 106 

15 IF I CHOKE I IROWI.EO.O.C .AND. ICONV .NE .2) GO TO 60 107 

IF I ICONV. GT .2 ) GO TC 60 108 

f #** CALCULATE STREAMTU8E CONVERGENCE CONSTANTS 109 

IF IJ.GT.l) GU TC 20 HO 

R JM = Rl 111 

Z JM= Z(I-ltJ) H2 

SLJ*»= TALP(1I ll 3 

GC TC 40 119 

20 R JW= R( I-l,J-l ) H5 

ZJM= ZII-l.J-l) 11* 

SL JM = TALP(J-l) H* 

30 IF (J.LT.NSTRM) GO TC 40 118 

R JP= Rl 119 

ZJP= Z(I-l.NSTRM) 120 

SLJP= TALPINSTRMI 121 

GC TC 50 122 

4C R JP= R< 1-1 , J+l » 123 

ZJP= Z<l-l,J+l> 129 

SLJP= (R( I , J + I ) - R( I - 1 » J* 1 1 )/(Z(l*J + l) - Zd-l.J+m 125 

50 RC 1 = RJM - RJP 126 

DR l = RD1 - ZJM*SLJM ♦ ZJP*SLJP 127 

SL JC = SL JP - SL JM 128 

GMl = GAMMIJI - 1.0 129 

GR2 = GAMMUI/GMl 130 

GP4 = (GAMMI J) ♦ 1.01/2. C 131 

GRl = GR4/GMI 132 

RMR = 1.0 ♦ GMI/2.09RELMI JI**2 133 

A1SCA1 = RELM(J) *(GR4/RMR )**GR1 139 

PFLCS= 0EAR(J»*I1.0 - RMR**( -GR2 1 I 135 

RTRC = O.C I 36 

IF (ISTNU).LT.O) GO TO 60 137 

RTRC = ICMEGA*CH0RCM*2/(GR2*RG*TRELUJI*194.0I 138 

6C IF ( 1 1 NC ( I ROW ) .GT.2) GO TC 90 139 

*** IP INCIDENCE ANC DEVIATION ANGLES ARE TO BE DETERMINED BY THE 190 

METHODS CF NASA SP-36, VALUES FROM SEVERAL PARAMETRIC CURVES ARE 191 

NEECFD. ALGEBRAIC EQUATICNS WHICH MATCH THE PARAMETER CURVES 192 

WITHIN A FEW PTRCENT ARE USED. 193 

IF (IINC(IROW).EO.l) CC TO 7C 199 
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**• CALCULATE THE 3-D INCIDENCE CORRECTION EACTOR. 165 

I3C = ( 2 . 5 5*R R 1 - 2. 0 ♦ (17.5 - 2.5*RR1)*RRI ♦ 5 . 275 ) *RE LM( J ) ** ( ( I < 166 

X 0 . 1 56 3*R P 1 - 0.366) *RR l ♦ I .0820 I /RELM I J )) ** ( ( 0 . A3 75*RR I - 1.1375 1A7 

X ) *RRl ♦ 2.7096) > I/RACIAN 1A8 

*** CALCULATE SLOPE OF DEVIATION WITH 2-D INCIDENCE FACTOR. 169 

A = 3.35 - BL*(0.7l+ C. 29*81 I 150 

B = <0.0AA6*8l - 0.0 AC 51 *31* 0.0070 151 

C = S I NI P I *S J/l . 2 ! 152 

CDEVDI - E XP ( - A*SJ ) + P* (C/S J ) **2 153 

GC TO BO 15A 

70 I 3D= 0.0 155 

t **♦ CALCULATE K I t THE BLACE THICKNESS FACTOR ON INCIDENCE. 156 

8C K I - ( ( 151 6.6*THMAX - 31 7 . 26 ) *THM AX ♦ 26.0)*ThMAX 157 

*** CALCULATE 2-D INCIOENCE FACTCK FOR 10 PERCENT THICK AIRFOIL 158 

I 20 10 = S j*Bl* I 0.080 - 81**5*0.001662) 159 

CINC= 130 ♦ KI*I2C10 160 

*♦* CALCULATE, NI, INCIOENCE FACTOR ON BLADE CAMBER. 161 

AA = 10.1559 - 0.03757*S J )*S J - 0.2205 - 0.02838/SJ 162 

6B = I 0.06833*1 1.2 - SJ>**2 - 0.556531*0.1882 163 

CC = 1.627 ♦ 7.288 * I S J - 0.6)/SJ**5.2 166 

CD = «C.C0o25*SJ - 0 .C636 I *S J ♦ 0.0165 165 

EE = A8SI B1*R ADI AN - A0.CJ/3C.0 166 

NI = -0.025*12.6 - SJ) ♦ I AA*88*B1**2 I *Bl ♦ 10.5*1 ATANIBl* 167 

X RAC I AN- 60.0) »/PI»*IO.O270*EE**1.65 ♦ 00*EE**CC> 168 

CC TC 150 169 

*30 IF IIINCf IRCWI.EG.A) GC TO 130 170 

IF (ITER.GT.l) GC TO 120 171 

DKLE I ! ROW, J ) - 2.0*AT AN< (THMAX - THLEI/ZM) 172 

1 20 C1NC= DKL E t I ROW , J ) 173 

IF ( I I NO I IR0WI.EQ.5) CINC = CINC ♦ INCIIROW.J) 176 

GC TC l AO 175 

13C C I NC= ( NC ( I RCW » J ) 176 

1 AC N I - 0.0 177 

I 3D = 0.0 178 

15C I PASS = 0 179 

IF ( IOEVI IPCW) -GT.2) CC TO 180 180 

IE ' IOEVI IROW). Ell. 1) GC TO 160 181 

*** CALCULATE D3D, THE 3-C DEVIATION CORRECTION FACTOR 182 

A = -1.75 + 2.5*RR2 ♦ fi«?**6.58 183 

B = 1(60.2 - RR2*A6.25 )*RR2 - 5.558)*RP2 186 

C 1 5 .0*1 ASS ( RR2 - 0.C5 ) )**0. 166667 185 

D 3D = (A * B*{RELP'.J) - C.65 * KR2/6.0 ) **C ) /RADIAN 186 

GC TC 17C 187 

160 D3D- O.D 188 

i. *** CALCULATE C2D1C, THE 2-0 DEVIATION FACTOR FOR 10 PERCENT THICKNESS 189 

170 D2DI0 = I 1 1 <0.6812*S J ♦ l.325)*SJ - 0.3895)*Bl ♦ 10.6957- SJ*I 190 

X 0.837 ♦ l.0185*SJ> ) )*Bl ♦ I ( 0.00825*SJ ♦ l.673)*$J - 0.1069))*BI/ 191 

X RADIAN 192 

**♦ CALCULATE KL, THE BLACE THICKNESS FACTOR ON OBVIATION. 193 

KC - T HP A x* (9.333 ♦ 97.8*THMAXI 196 

*** CALCULATE PC, DEVIATION FACTOR ON BLADE CAMBER. 195 

MC= < (0.05f'6?*Hl -O.OA 2 2 1 ) *81 ♦ 0.060661*81 ♦ 0.25 196 

*♦♦ CALCULATE p, THE SCLICITY EXPONENT. 197 

B - 0.966 ♦ Bl*( -0.17675 ♦ 81*10.2036 - 81*0.2781)1 198 

CCE V = KC*D2D1C ♦ I3C*CDrVCI ♦ 030 199 

GC rr 760 200 

1PC IF ( IOEVI IRCW) .NE.5) CC TO 150 201 

PL= O.C 202 

H - l.C 203 

CCE V - DV V ( I RCW , J ) 206 

GC TC 26 0 205 
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#♦. ■ ... =v carters ?u r.. 206 

190 B = 0.5 

G3L = 0.37*bl -» 0.63* a 2 : '~ 0 

IF ( IGC.FQ.2 ,C° IC-fOIMOS' .NF. 2 ) GO Ti j 105 309 

OK = 2.0*1 THMAX - THL E ) / 7M/ ( E l - B2> 210 

C.¥ = (REl"MJ) - !,0I*SF!.HIJ1**6 ?U 

P = (1.0 - 0K*CM*(1.C - TI/Tl/Ii.O ♦ (1.0 ♦ DK)*CM» 212 

195 GAMPHl = 0.5*( P*C2**2/C1 - C.D/CCC 213 

IF (GflMPHI* 200 f 220 » 2 10 214 

2CC ACC = T 4 C 1 *GAMPH I 215 

GC TC 230 2 lb 

21C ACC - T « (..--'aMPHl/P 217 

GC TO 230 218 

22C ACC = T itl9 

23C *C - (C.T’O ♦ Gftt * T 0 .~ r t C" 5 ♦ * .C8B915*GBL ! * * 2 .C i ADC > ** ( 2 . U 5 - 220 

X GBL*(2.0354 - 0 .629 2 2*GFL » » ? 21 

CCEV = 0.0 -22 

IPASS = I PASS ♦ 1 223 

2 AO CN = B1 - B2tC ♦ COEV - UNO 224 

OVC = MC/SJ**B 225 

CC = 1.0 - UVC ♦ NI 226 

□KAPPA * CN/CD 227 

BINC = CINC «■ Nl*OKAPPA 228 

SKIC(J) = 81 - BINC 229 

SKOC(J> = P2 - CCEV - CVC*CK APPA 230 

KIC(JI - ATAM(TANCSKIC(J)J*CA5.P - ( S !NA( J »*CALP - SALP*C0S4 (111* 231 

X RPTE(I-l.J) J/COSACJ ) ) 232 

KCC(J) - A T AN( (TAN(SKCCIJ) I *C ALP - ( S INA2 ( J 1 *C ALP - SAL P*COS A2 ( J 1 ) 233 

X *RPTE(I »J) 1/C0SA2CJ) ) 234 

DKAPPA ^ K!C(J1 - KOC(J) 235 

SGAM = S1N((KIC(J1 ♦ KCC(J>)/2.0> 236 

IF ( IGEC( IPOWI.NE.2) CC TO 250 237 

*** SET SEGMENT TURNING RATE RATIO FOB OPTIMUM OPTION 238 

IF (RELM( J>.GT.0.8» CC TC 242 239 

P = 1.0 240 

GC TC 248 241 

242 IF (ITER.GT.l) GO TO 244 242 

OK = 2.0*(THMAX - THL E 1 / ZM 243 

GC TC 246 244 

244 DK = DKLE( IRGW.J) 245 

246 CP = 0.75* ( RELM( J 1 - C . 8 )*RE LM ( J >**6 246 

DKT = KIC(J> - KOCIJ) 247 

P = (OKT - CK*CM*(l.C - T)/T)/(DKT ♦ (DKT ♦ DK)*CM) 248 

248 PHI UROH.J) = P 249 

25C CALL CCNIC 250 

IF ( IERROR.EO.l.ANO. ICCNV.LT.2) RETURN 251 

IE ( IGO-1 ) 280.230.1AC 252 

28C RETURN 253 

ENC 254 


SUBROUTINE CCNIC * 

*** THIS IS THE MAIN PLACE ELEMENT LAYOUT ROUTINE. BLADE ELFMENTS 2 

*;* ARE LAIC CCT CN A COM StCH THAT THE CIRCULAR ARC CHARACTERISTIC 3 

*** CF lCNSIANT k,; It CF ANCLE CHANGE WITH PATH DISTANCE IS MAINTAINED. 4 

REAL INC, i'. iC, .<iS, KM, ,\0C. KOP, KOS. KP , KS, KT . KTC • KTP , 5 

1 K.T5, KWC . MACH 6 

ccppon / v c r r c r / 7 


V 
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1 BET AS (1*21) t BMATL(l), HLADESd), CHOKF(l), CHORDA ( 1 ) * CHORDB(l), 8 

2 CHCROCU), CPCO ( 6 ) , CEV(1,21), lOFVil), If, FOCI), I I NC ( 1 ) , 9 

3 ILCSSm, I *AX ( 1 ) * I NC ( 1 , 2 1 ) * I S TN( 2 ) * ITKANS(l), NOPT(l), 10 

NXCUT(l), PHI(l,2l>, PC ( 2 » 2 l ) » M2, 21), RBHUBIl), RBTIP(i), 11 

5 SLCPE ( 2 , 2 1 ) * SOL 1 0( 1 ) , TAlE(l), TAMAX(l), T A T E ( 1 ) , TBLF(l), 12 

6 TBPAX(l), rriTE(l), TCLE(l), TCMAX(l), TCTE(l), TDLE(i), ,'DMAX(1), 13 

7 TOTE ( l ) * TiLT(l), TC(2,2l), TRANS(1,21), VTh(2,21), VZ(2,21), 14 

8 Z ( 2 * 2 1 ) * ZHHUBd), ZPUP(l), ZHAX ( 1,21) 15 

CC“PON /SCALAR/ 16 

1 BETA, CP, CPH2, CPH3, CPH4, CPH5 , CPH6, CPP3, CPP4 , CPP5, CPP6, 17 

2 CPI, CV, CLP, CF, DEC, CHC1, DLCSC, G, GAMMA, GJ, GJ2, GR1, GR2, 18 

3 G«3, GR4 , GR5, H, I, ICCNV, ICOUNT, IERROR, I IN, IPR, IROTOR, IR, 19 

4 IRCW, ITER, 1W, J, JM, MACH, NAB, N8R0WS, NHUB , NROTOR , NSTN , NSTRM, 20 

5 NT I P, NTUBES, OMEGA, PI, POAl, PR, RAOIAN, RF, RG, ROT , TL , T0A1 , TU 21 

CCPPON 22 

1 BETAK21), BET A2 ( 21 ) , CC$A(21», C0SLI21), 0KCE(1,21), 0LI21), 23 

2 GAPP( 21 ) , CBAR ( 21 ) , RELP(2l), RPRK21), RE 1 ( 2 1 1 , RE2(2l), 24 

3 RE 3 ( 21 ) , PE4I21), RE5121), RVTH( 21 ) , SINA(Zl), SINL<21>, SL0SC21) 25 

4 , SCN IC ( 21 ) , THET AP (2 1,13), THETAS I 21 , 13 » , TRELK21 ) , TSTAK21), 26 

5 VP ( 21 ) , VTSC121), XBAR(l,2l>, YBAR(l,2l), ZPJ21,13), ZS(21,13) 27 

CCPPCN /ECUIV/ 28 

1 CHCJ21), CHK (21), CCSA2 (21 ) » FSM(21), KIC(21), K0C(21), RCA(21), 29 

2 REC (2,21), RPTE 1 2,211, SINA2<21), SKIC(21), SK0CI21), TALP(21), 30 

3 TC A ( 21 ) , TfcC(2,21), TGB ( 2 1 1 , TTRP (21 > , TTRS< 21 1 , YCCLE < 25 1 , YCCTE <25 » 31 

4,ZCCLE ( 25 ) , ZCCTE ( 25 ) , ZC0A(21), ZEC(2,21), ZTRP(21), ZTRS121 ) 32 

CCPPCN /BLADES/ 33 

1 APACH, ACC, AISOAS, AISCA1, 8INC, CALP, CCC, CEPE, CGBL, CHORO, 34 

2 CINC, CKTC , CKTS, Cl, C2, OKAPPA, DRCE, 0RCG1, ORCMST, ORCHT , 35 

3 CRCCI , CRCT , ORCTI, CR1, CSPE, OSPIT, DSOI, DSOT, OSSE, DST, OSTI, 36 

4 EPT, FI, F2, GBL, ICL, IGO, IPASS, KIS, KM, KTC. KTS* P, PFLOS, 37 

5 RCG, RCP, RCMS , RCT , RC1, RECGI , REE, REMT , RET, RETI , RMSJ, RTRC 38 

6 ,R1 , R1C, R2, SALP, SEPE, SGAM, SGBL, SJ, SKTC, SKTS, SLJD, T, 39 

7 TEPE, TGBLL, THO, THLE, THMAX, THTE , TKTN, TlS, WC1, YB1, VB2, ZM 40 

CCPPON /MARG/ 41 

1 AL, AOAS , ACA1, CCHCPC, OAL, CAOAS, DPW, OPML , ORCLEP, DRCM, 42 

2 CRCTPI, CRCTSI, DRCMT, CSA, DSP, 0SP1, DSP2, DSS, 0SS1, 0SS2, OSM 43 

3,EB, EWC * F, PC, ICHCKE, KIP, KOP, KOS, KP, XS, KTP , KMC, PI2, RCI 44 

4 »RCC , RCP, PCS, RCTP, RCTS, REtEP, REOI, REP, RES, RETP, RETS, 45 

5 REWT, RTR , RTRC, RTRC, SECG6L , TCGI, TGBL, WC , ZMT 46 

IG0=0 47 

ESTABLISH BLADE ELEMENT CENTERLINE TO SATISFY CAMBER, CHORO 4B 

*4* AND TRANS I T I CN POINT REQLIREMENTS. 49 

CC AP= SCRTd.O - SGAP**2 ) 50 

CK2 = OKAPPA/ll.O ♦ P4C1/C2) 51 

CCHCRO = CALP*CFORO 52 

IF (1PASS.GT.1) GO TC 30 53 

ICL = 1 54 

EP$= CCC*SCAP*SALP/(R1C ♦ ( TFLE ♦ CCC*CGAM »*SALP ) 55 

DPH I = OKAPPA - EPS 56 

DPH14 = DPH 1/4,0 57 

CPHIHS = DPH 1*DPH14 58 

DSC 1 = CCC/1U0 - DPHIHS/6.0*(1.0 - 0PH1HS/20.0) ) 59 

DST 1= C1/CCC*CS0I 60 

DSCT = OSCI - LSTI 61 

IF ( ITER.CT, l ) GC TO 10 62 

SINCP4 = CPHt4*SRS(0PFI4 ) 63 

YRAR ( I RCW , J ) * YB1 ♦ YB2*S INCP4/SQRT (1.0 - S1NDP4**2) - THLE 64 

1C IF (ABS(SALP/RlC).LT.1.0E-08) GO TO 20 65 

RC I = R1C/SAIP ♦ THLE 66 

GC TC 25 67 

2C RC I - 1.0E4P8 66 
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25 RCG = RCI - THLE 4 ( ZCCA (J) ♦ l BHUB(IROW) - Z ( i “ 1 , J M /C CHORD 
3C OKI = DKAPPA - CK2 

CALL EPSLCMK1CC J),-CK1,RCI ,CST1,DRCTI ,RET I ) 

KTC = KU(J) - OKI 
RC T = RCI 4 DRCTI 

35 CALL EPSLCN(KTC,-DK2,PCT f DSOT,CRCOT,RECT> 

RCC = RCT 4 CRCOT 

RE U I = RCO/RCT*RETl 4 REOT 

DRCC I - DRCTI 4 DRCCT 

CALL TANKAP(RCI tDRCOI , RE C I * T ANCCC ) 

TGBL= ( T ANCCC 4 TEPE)/(1.0 - TANCCO*TEPE ) 

CALL RPC I NT (RCI, DRCTI ,RFTI ,TCBL, JRCTP) 

SECGBL- SORT (1*0 4 T GEL**2 ) 

CCD DRCTPASECGBL - Cl 

DC2 = DRCC I* SORT ( 1.0 4 T ANCCG**2 ) *CEPE - CCC 
IF (ICL.GT*1.AN0.ABS(TGBL - TGBLL ) .LT. 1.0E-04) GO TO 45 
GBL= ATAN(TGBL) 

CALL EPSLCM G8L ,0.0, RC I , XBAR t I ROW, J 1 , DRCMT , REMT ) 

RC* * RCI ♦ DRCWT 

CALL EPSLCN (GBL4P 12, 0 *0, RC* , YBAR ( IRON , J ) , DRCGI ,RECGI ) 

ORCGI = CRCGI ♦ CRCMT 
RCI * RCG - CRCGI 
ICL * 2 
TGBLL = TGBL 

45 IF (ABSICCD.LT. l.OE-05) GC TO 40 
OSD OSTI *CC 1/ CC1 4 CCD 
DST 1= OSTI - CSl 

OSCD DSOT - C5GI *DC2 / (CCC ♦ DC2 ) 4 CSl 

OSOI = OSTI 4 OSOT 

0K2 = 0KAPPA/C1.0 4 P*C$TI /DSOT ) 

GC TC 30 

40 IF (ABSCDC2I.LT.1 OE-Cfc) GO TO 50 
DSC T = OSOT - CSC l *0C 2 f (CCC 4 DC2) 

OSOI * OSTI ♦ OSOT 
GC TC 35 

5C IF (IPASS.EG.2) GO TC IOC 
IF ( ICCNV.FC.2) GC TC 55 

IF ( IOEVf IRCW).LE.2.CR.ICEV< IR0WI.GE.5) GO TO 100 
; 444 CALCULATION OF A BETTER VALUE OF MAXIMUM CAMBER HEIGHT ABOVE 

; *** THE CONSTANT ANGLE LIKE CONNECTING BLADE ELEMENT EDGE CIRCLE 
I ♦♦♦ CENTERS. IT IS USED FOR A *CRE REFINED VALUE OF DEVIATION ANGLE 
; BY MODIFIED CARTERS RLLE. 

55 IF ( ABS(DKAPPA)*LT.O.CCD GO TC 80 
GCCC = ATAN ( T ANCCO ) 

DGAR= KTC - GCCO 

IF (ABS(DGAM/CKAPPA1.L f.C.OOl) GO TO 90 
IF (DGAM/CKAPPA.GT.O.C ) GC TO 60 
DSAD DSTDDGAM/DKi 
GC TC 70 

60 OSAT = D$0T*DGA*/CK2 

70 CALL EPSLCM KTC , -OGAM , RCT, CS AT f DRCAT ,REAT > 

CALL RPCINT(RCT,ORCAT,REAT,TGBL,ORCAP| 

ACC- T 4 DRCAPASECG8L 
GC TO 95 
8C ACC= 0.5 
GC TO 95 
9C ACC- T 

95 IF ( IOEVf IRCVO.LT.3.CR. ICEV( IROW) .GT.4) GO TO 100 
I GC= 1 
RETURN 

ICC R ECO I * RECbl 4 (L.O ♦ D«CG I /RCM ) *REMT 
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; *** RESET PLACE EDGE CCLRCINATES 

R ( I - 1 , J I - RCA(J) - (CPC I ♦ THI E >*SALP*CHORO 

r ( I , j ) = u ( l - 1 1 J ! + t C » C < I * T PL f ♦ ThTE MSA!. P*CHURO 

Z ( l - 1 * J ) = Z f'HUfe ( l ROW ) ♦ ZCCA(J) - (CRCGI ♦ THLfl*CCHURO 

Z(I,J) - Z(I-l»J) ♦ (ERCfl ♦ THLE ♦ THTE **CCH(JkD 

RIC = R < I - 1 » J ) / CFCRD 

TCGI = RFC^I/IRIC ♦ (LRCCI ♦ TPLF)*SALP) 

; *«* CCMC CCCPCINATES PE THE PAXIMUP THICKNESS POINT 

ZPT - ZP - T 

IF ( ZMT .NE .0 .0 > GO Tt l 20 
DRCPT= C.O 
REPT- 0.0 
DK= 0.0 
DSP T = C.C 
DSPE = DST I 
GC TC 150 
12C HKTC= KTC/Z.? 

SHKTC= HKTC*SRS(HKTC > 

SHKTCQ= SFKTC4P2 

SKTC= 2.0*SHKTC*SCRT ( 1.0 - SFKTCCI 

IF I ABSISKTCl.LT. 1.0E-07) SKTC = l.CE-07 

CKTC - 1.0 - 2.G*SHKTCC 

TKTN = -CKTC/SKTC 

IF (ZMT.GT.U.O GC TC 130 

DSPT= DST I *ZPT /C 1 

DKCS = DK1/CST1 

CSPE= DST I 

GC TC 140 

13C OSPT = DSCT*ZPT/C2 
DKCS = DK2/C5CT 

dspe- -csrr 

14C DK= -OSPT*CKCS 

CALL EPSLCMKTC,CK,RCT,CSMT , CRCMT.REPT 1 
CALL RPC I NT (PCT.CRCMT ,REPT ,TCBL,ORCMP> 

ZPTCAL= crcpp*secg<*l 

IF (A6SIZPTCAL - Z PT ) . L T . 1 .CE-CS 1 GO TD 15C 
OSPT = CSPT*ZPT/ZPTC«l 
GC TC 14P 

15C RCP= RCT ♦ URCPT 

REP i = (1.0 ♦ LRCPT/RCT >*PETI ♦ KEPT 
K P= KTC + UK 
HKP= KPZ 2 . . 

SHKP = HKP* r .RS (HKP 5 

SHKPC= SHKP**Z 

CHKP = SCRTI1.C - SHKPC) 

SKP= 2.C*SFKP*CHKP 
CKP = 1.0 - Z.G*SHKPQ 
DSPE= DSPfc + LSPT 

2 OFF I M T ICN OF SLCTICM SURFACE MAX. THICKNESS POINT 

CALL EPSLCMKP+P12,0.C,KCM,TPMAX,CRCP,REM) 

R C P S = RCM ♦ DHCP 

IF ( ZMT.G T • .L I GC TC ICO 

: *** DEFIMTICN OF SUCTICN SURFACE CURVE FOR MAXIMUM THICKNESS 

; *•* foiat cn cr ahead OF tee TRANSITION POINT 
OK = 2.0’MTPPAX - THLEI/CSMF 
K I S - K1C(J) + UK 
K I P = K IC ( J ) - CK 

DRC I P= -CPC TI - CRCMT - CRCM 
E PS I = REPI/KCP + RPM/RCPS 

CALL SURF ( KI S » K P , SKM . CK P ,RC I . . 'C IM » THLE * CMSI ,OSSE ) 

IF (ZPT. EC. ..C ) CO TC 160 
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DRCNST = CRCMT ♦ CRCM 1 'U 

ENT = REN/RCNS ♦ REMT/RCM 10? 

CALL )RAN(KIS,THLE»THNAX»KTS,RCTS,RETS,CSS1I 103 

OH K T = (KTC - KTS1/2.0 194 

DK= 2. 0* I U S T - THTE - CSC T*OHKT ) / 1 USCT ♦ (OST - THTE ) * 0 H K T ) 1 OS 

DRC C TS = CRCCT - CRCT 1 >6 

ENSC = RET/RCTS - REOT/RCL l'Jf 

DRC TS I = CRCT 1 ♦ CRCT 1<J8 

GC TC 170 109 

16C RCT S= RCMS 200 

K T S = KM 201 

RETS = RCNS*EHSl 202 

DSS 1 = -OSSE 203 

SKTS = SKM 204 

CKTS = CKM 205 

DK= 2.0*1 THMAX - THTE1/CS0T 206 

DRCCTS= ORCOT - DRCM 207 

EMSC = REH/RCHS - REOT/RCC 208 

ORCTSI * CRCT I ♦ CRCM 209 

170 KCS* KOCIJ) - OK 210 

KCP = KOCIJ) ♦ OK 211 

CALL SURFIKCS, KTS, SKTS,CKTS,RCO,DRCOTS, THTE, EN.S0,DSS2) 212 

GC TC 190 213 

; *•* OEFINITICN OF SUCTICN SLRFACE CURVE FOR MAXI HUN THICKNESS 214 

: *** PCINT BEHINC THE TRANSITION POINT 215 

18C 0K= 2.0* ITHNAX - THTE I /C SHE 2l<> 

KOS - KCCIJ) ♦ OK 21 f 

KCP = KCCIJ ) - DK 218 

ORCCM= CRCCT - DRCHT - CRCH 219 

EHSC= REHT/RCH - REOT/RCC ♦ REH/RCHS 220 

CALL SURFIKCS, KM, SKM, CKM, RCO.ORCOM, THTE, EMSO, OSSE ) 221 

ORCNST= CRCHT ♦ ORCM 22? 

EHT= REH/RCHS * REHT/RCH 223 

CALL TRANIKUS, THTE, THNAX , KTS, RCTS, RETS, DSS2 > 224 

DHKT= (KTS- KTC1/2.0 22 5 

DK= 2.0*1 CST - THLE - CS TI*DHKT ) / I OST I ♦ ( DST - THLE)*DHKT> 226 

K IS= KICIJ) * OK 2?7 

KIP= KICIJ) - OK 223 

DRC T SI = CRCT I ♦ CRCT 22 9 

EHS I = RET I /RCT ♦ RET/RCTS 2 30 

CALL SURFIK1S, KTS, SKTS,CKTS,RCI, -ORCTSI, THLE, EHSI.OSSE) 231 

DSS 1 = -DSS E 232 

S *** OEFIMTICN CF PRESSURE SURFACE HAXIHUM THICKNESS POINT 233 

190 CALL EPSLCMKM+PI2,0.C,RCM,-THMAX,0RCH,REM) 234 

RCNS= RCH ♦ CRCH ?35 

IF (ZMT.OT.O.C) GO TC 220 236 

S *** OEFIMTICN CF PRESSURE SURFACE CURVE FOR HAXIHUN THICKNESS 237 

; *** PC I NT CN CR AHEAD OF THE TRANST ION POINT 238 

ORC I H= -CRCT I - ORCMT - CRCH 239 

EHS I = REH I /RCH ♦ REH/RCHS 240 

CALL SURFIK IP,KH,SKH,CKH,RCI , ORC IH , -THLE , F ' I ,DSSE > 241 

ORC l EP = CRCc 242 

RELEP = REF 243 

IF I7HT.FC.».C> GC TC 2.0 244 

DRCH ST = CRCNT ♦ CRCM 245 

ENT = REN/RCNS ♦ REMT/RCN 246 

CALL TR3N(KiP t -THLF,-THHrtx,KTP,KCTP,PLTP,USPl) 247 

CRCC TS- re.f lT - CRCT 248 

( *S< = RCT/sCTP - RE C T /H CP 249 

CRCT M - C *c V [ ♦ I > C T 250 

r,r t ( nr 251 


i 
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2CC RCTP = RCMS 
KTPr KM 

R E TP - RC M S ♦ tMSI 

dspi = -rsst 

ORCCTS= CRCCT - f'RCM 
EMSC = PEM/kCMS - RELT/RCP 

DRCTPI = C °C T l ■» U»CM 

21C CALL SURF ( KOP , K T P, SK T S , CKT$ , PC CRC.n T s, - ThT E , £ MSC ,DSP2 I 
GC TC 230 

; DEFIMI1LN IF PRESSURE SURFACt CURVE FOR Flit MAXIMUM 

z ♦** THICKNESS PL I N I ReHlNC TEE TRANSITION POINT 
220 DRCCM= ORCCT - CRCMT - CwCM 

EM SC = REMT/RCM - RECT/RCO ♦ RF M/RCMS 

CALL SURFIKOP,KM,SKM,CKM,RCO,URCOM,-THTE,EMSO,OSSE I 

DRCMST = DRCMT ♦ ORCM 

EMT = REM/RCMS ♦ REMT/PCM 

CALL TRAN(KCP,-TFTE,-TFMAX,KTP,RCTP,RETP,DSP2) 

DRCTPI = CRCTI ♦ CRCT 
EPS I = RETI/RCT ♦ RET /RCTP 

CALL SURF(KIP,KTP,SKTS,CKTS,RCl , -DRCTPI, -THLE.EMS l, DSSE > 

DRCLEP = CRCE 
RELEP = REE 
DSPI = -DSSF 
23C DSS = DSS1 ♦ DSS2 
OSP = DSPI ♦ CSP2 
E8 = l.C/ISJMRCI ♦ CRCCI/2.CII 
IF IICCNV.CT.2) RETURN 
OSA * (CSS ♦ LSPI/2.C 
DKLE I I RCW, J ) = KlS - KICIJI 
IF (DKLEI IPCW,J).GE.C.C> GC TO 232 
WRITE <IW,?00u> J, I RCW » ITER 
GC TC 233 

232 IF I (KOS - KCCI J) I.LE.C.C) GC TO 234 
WRITE ( IW , 20 1C I J» l RCW, ITER 

233 THMAX = 2 « 0* T HM A X 

WRITE I I W , ?G2G ) THLE , (HMAX, THTE, ZM 
IERRCR = 1 

IF (ICONV.LT.2) RETURN 

234 RTRC = RTRC*SALP*OSA 

RMS J = (R1C ♦ R? /CHORE I *SJ/2 .0 

WC1 = RIC*CLS(BETA1< J D/RMSJ 

ICHCKE = 1 

KP = KIP 

DPW = -LSP1 

RCP = RCI ♦ CRCLEP 

REP = RCP*FB + RELEP 

DRCWT = CRCLFP - LRCTSI 

REWT = REP - RFTS*RCP/RCTS 

CALL CHAN 

RETURN 

20C0 FORMAT (/// 6X,74HTHE PLACE ELEMENT THICKNESS DECREASES FROM THE L 
IE AC I NG EDGF OF ELEMENT NC.,Ii,I7H OF BLADE ROW N0.»I3»17H ON ITERA 
2TICN ND.,13 > 

2010 FORMAT ( III 6X.75FTHE PLACE ELEMENT THICKNESS DECREASES FROM THE T 
1RAILINO c DGL GF ELEMENT NO.,i3,l7H OF BLADE ROW NO.,I3»17H ON ITER 
2 A T I C N NO . , I 3 ) 

2C2C FORMAT (// 1 X , 47HACJL S T SOMt OF THIS INPUT DATA L.E .RAO/CHORD =, 

1 F 7 . 4 , 1 7H MAX.TH./CHCRL =,F7.4,17H T . E , RAO/CHORO =,F7.4, 

2 21F MAX.TFi.LCC./CHCPC = , F 7 .4 I 
ENC 
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SUBROUTINE EPSLCNCKOtTK, ? q 9 l S » L R # RE ) 

C *** CALCULAT 1C\ CF C. MC W A H l A l AND Cl R C U M F F R C N r I A L COMPONENTS OF 

C A l AO 6 F L ^ M F N T S^^Me^T * I T H 0 l v - N PATH DISTANCE A NO £ NO ANGLES 

REAL KO 

IF (DS.EC.C.C) CC TCJ 7 C 
H C K = DK/ ? . " 

S R= SRS(HCK) 

SHCK = HOK *SR 

SFCKC= SHCK**2 

CHQK= SCRT ( UC - SHOKC ) 

HKC - K 0/2 . 0 

IF (HKO.GT.O. 78539816) CC TO 4 
SFK C = HKO*SRS(HKO) 

SHKCC= SHKC**2 

CHKC= SQRTC1.0 - S*K( C) 

SKC= 2.0 * SHKC*CHKC 
CKC- 1.0 - 2 .C*SNKOQ 
GC TC 6 

4 HKO = 0.78535816 - HKC 
SHKC » HKO*SRS C HKC ) 

SHKCO * SHKC**2 
OKO = SQRT ( i.O - SHKCO 
SKC = 1.0 - 2 .0*SHK0C 
CKC a 2.0*$t4KO*CHKC 
6 SKA= SNCN«CKC * SKC*CFCK 
CKA* CHOK*CKC - SKO*SFCK 
C **♦ CCNIC RACIAL CQMPCNENT CF THE PATH 

DR= DS*CKA*SR 

IF (ABS(DK).GT.O.COOCl) CO TC 10 
IF < ABS(RC).GT.1C0.0*CS) GC TO 60 

C *** CIRCUMFERENTIAL CCPP. WHEN PATH ANGLE IS ESSENTIALLY CONSTANT 

RE= (RO ♦ CR ) *SK A/CK A * AL CG (1.0 ♦ OR/RO) 

RETURN 

10 IF ( ABS(RC).GT.1C0P0.C*CS) GC TO 60 
RS= RO/CS 

IF (RS**2/ AB S ( CK ).GT • 1 • 7 F + 09 ) GO TO 60 
C *♦* CONIC CIRCUMFERENTIAL CCMPUNENT OF PATH 8Y GENERAL EQUATION 

RCK = RS*CK - SKO 
QCK S = HDK ♦ *2 /4 . 0 

SES = 0. 6 6 1 6 6667*RCK *CCK S* (1.0 - 0 .6*QDKS*C 1 .0 - 0. 1 5873C 16*QDKS* 

X (1.0 - C .C77777778*CCKS*( l.C - 0 . 04675 3247AQDK S* ( 1 . 0 - .031330903 
X ACCKS ) ) ) ) ) 

DRR - OR/RC 

IF ( ABS(CRR) .GT.0.21 ) GC TO 2C 

RRM - 0. 5*CR R* ( 1 .0 - C . 2 5*CRR* ( 1 .0 - 0.5*DRR*(1.0 - 0 . 62 5*0RR* ( 1 .0 
X - C.7*DRR*( 1.0 - 0. 75ACRR*( 1.0 - 0.7857i429*DRR*( 1 .0 - 0.8125*DRR 
X *(1.0 - C.63333333*CRR ) ) ))) ))) 

RRC = RRM ♦ i.O 
GC TC 30 

2C RRC- SQRT (1.0 ♦ DRR) 

RPM= RRC - i.C 
30 RM= RRQARS 

0 = RCK*CHCK 4 SKA ♦ CK*PM 
XS ' SHDKQ*(i.C -RCK**2)/C**2 
XSN~ 35.n*A«S( xs ) 

NX S r XSN 
N= 3 + NX$ 

SYS= 0.0 

x f s = l . r 

0 K N ~ l.c 
DC 40 KNsl,N 
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IF (ARS(XP5).LT.1.0F-l?.ANC.KN.NE.l> GO TO 50 62 

XPS= X PS * X S 63 

OKN “ DKN ♦ 2.0 64 

AO SXS^- SXS ♦ XPS/DKN 65 

5C R E = (RO ♦ L'R ) * ( OK* ( SKC ♦ SKA ♦ DK*RS*RRM - SES) - A . 0*RCK*SHDK* 66 

X SXSI/l) 67 

RE TORN 68 

C **♦ C.CNlC CIRCUMFERENTIAL COMPONENT WHEN PATH DISTANCE IS A VERY 69 

C *♦* SMAU FRACTION CF THE DISTANCE TO THE CONE VERTEX. 70 

6C DRR- O^/RC 71 

RE = (1.0 ♦ DRR )/ ( 1.0 ♦ C.5*DRR*<1.0 - 0. 25*0RR*( l .0 - 0.5*DRR* 72 

X ( 1.0 - 0.625*DR«> m*CS*SKA*SR 73 

RETLRN 7A 

7C OR = 0.0 75 

RE = 0.0 76 

RETURN 77 

END 78 


FUNCTION SRSIANGI 

C *** SERIES FOR ( SIN( ANG H /ANG WHEN THE MAGNITUDE OF ANG IS LESS 

C *** THAN PI/A 

IF (ABS(«NG).lT.l.0E-C5» GC TO 10 
AC = ANG**2 

SRS = 1.0 - AQ/6.C*tl.C - AQ/2Q.0M 1.0 - AQ/A2.0*(1.0 - AQ/72.0H) 
RETURN 
1C SRS = 1.0 
RETLRN 
END 
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SUBROUTINE T ANK API RO, CR»RE »TK ) 1 

C *** CALCULATION OF TFE SLOPE OF THE CONSTANT ANGLE PATH BETWEEN 2 

C *** TWO POINTS IN CONIC RACIUS ANO EPSILON COORDINATES 3 

R = CR/RC 4 

IF ( ABS(R).lT.O.l) GC TC 20 5 

TK = RE/ I ( RO ♦ DR»*ALCG(1.0 ♦ RII 6 

RETLRN 7 

2C SLR = 1.0 ® 

IF ( ABS(R I.GT.1.0E-08I GC TO 25 9 


If ( ABS(OR/RE).GT.l.OE-Oe> GC TO 35 10 

TK = 1.0E+C8 

RETLRN 12 

25 PRCC = l.C 13 

CN = 8.0/(-ALCG10IA8S(Rm l 4 

NT = ON I 5 

DC 20 1=1, NT 16 

N = I ♦ 1 I 7 

CN = N 1® 

PRCC = -PRCC *R I 9 

2C SLM = SUM ♦ PROD/DN 20 

35 TK = Hc/((RG ♦ CR»*R*SUM> 21 

RETURN 22 

END 23 



154 




SLBRCUTINE R PC l NT < R 0 , C R , RE , T K , DR P > 

c **♦ This SUBROUTINE CALCULATES the conic radial coordinate at the 

C *♦* INTERSECT ICN CF P ER P E N C I CUL A R CONSTANT ANGLE LINES FROM TwO KNOWN 
C *** FCIKTS CN A CCNE . THE LINE THROUGH THE REFERENCE PCINT HAS TH- 
C *♦* INPUT SLOPE TK. 

R = OR/RC 

CK = SORT ( 1 .0/ ( 1 .0 + T K * ♦ 2 ) ) 

S K = TK*CK 

IE ( ABS(R ) .LT.0.01I GC TC 20 

OPP = RC*< FXP( (RE*SK/( RC ♦ CR) ♦ ALOGil.C ♦ R)*CK)*CK) - 1,0) 
RETURN 

2C C = ( R E * $ K / ( RC ♦ CR ) ♦ R*(1.C - 0.5*R*(1.0 - 0.66666667*R* ( 1 .0 - 
X G • 7 5*R ) ) ) *C K ) ♦CK 
DRP = C 

30 CS = DRP* ( 1 • 0 * C.5*CRP*(1.0 - 0.66666667*DRP*t 1 .0 - C.75*DRP) )) 

If (ABSHCS - O/O.LT.l.OE-06) GC TC 40 
DRP = DRP*C/CS 
GC TC 30 
40 DRP = DRP*RC 
RETURN 
EKC 
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SU8R CUT I N E TRAN(KE,TE,TM,KT,RT,RE*DS) 

C *♦♦ THIS SUBROUTINE CALCULATES THE BLADE ELEMENT SURFACE CURVE 

C *** TRANSITION PCINT CCDRCINATES FROM THE INTERSECTION OF THE 
C *** ESTABLISHES SURFACE CURVF OVER THE MAXIMUM THICKNESS POINT WITH A 
C **♦ PATH PFRPENL ICUL AR TC THE CENTERLINE AT THE TRANSITION POINT. 

REAL KE, KIS, KM, KT* KTC, KTS 
CCMKON /PLACES/ 

1 AMACH, ACC, A 1 SO AS * MSCAi, BINC, CALP, CCC, CEPE, CG8L, CHORD, 

2 CINC, CK TC , CKTS, Cl, C2, DKAPPA, CRCE, DRCGI, DRCMST , DRCMT , 

3 C RCCI, CRCT* UKCTI* CR1* CSME, CSMT, DSOI , DSOT, DSSE, DST, DSTI, 

4 EMT, FI, F2, CBL , ICL, IGC, IPASS, KIS, KM, KTC, KTS, P, PFLOS, 

5 RCC, RCM, K CM S , RCT, RC1, RECGI, REE, REM T* RET, RET I , RMSJ, RlRC 
6,R1, R1C, R2, SALP, SEFE, SGAM, SGRL , SJ, SKTC, SKTS, SLJD, T, 

7 TEPE, TGBLL, THC, THLE, THMAX, THTE, TKTN, TLS, WC 1 , YBl, YB2, 2M 
C ST = TM - (TK - TE)*(CSMT/CSMF>**2 
DSS = DST * ( K M - KTC) - CSMT 
CS = (KE - KMJ/DSSE 
1C DK = CS*OSS 

CALL EPSLCMKM,DK,RCMS,CSS,ORCS»RES) 

DRCT = CR CM ST ♦ CRCS 

RT = RC MS ♦ GRCS 

RET = RES ♦ RT*EMT 

CALL TANKAO(RCT,CRCT,RET,TK) 

TKC = (TK - TKTN)/(1.C ♦ TK*TKTN) 

IF ( ABS(DST*TKD).LT.l,0E-06) GO TO 20 
DST = RET/ICKTC - SKTOTKD) 

DSS = DSS ♦ CST*TXC*SCRT< 1.0 ♦ TKD**2)/U.O -(DK ♦KM -KTC ) **2/2 . 0 ) 
GC TC 1C 
2C KT = KM ♦ CK 

RE = RT*RFTi/RCT ♦ Rb T 

DS = DSS - USSE 

IF (CSSE.GT. '.C> CS - -US 

HKTS = KT/2.C 

SHK T $ = HKTS*SRS(HKTS ) 
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SPKTSQ - SPKTS**? 

chkis seen i.o - spkt: 

SKIS = 2.0*SPKT S*CPK T S 
CKTS = 1.0 - 2.0*SPK T SO 
RETLRN 
EKC 


S'lBRPHT IMF S'IRF(KF ,KMM, SKM,CKM,Rn ,ORC , TE ,F*S, OS SI 
C *** TEJS SURPDUTINc CAL TULA TES THE BIAOE ELEMENT SURFACE CURVE 

<- **« POINT COORDINATES. THE SURFACE CURVE IS NORMAL TO THE END 

r *** POINT TFIfKMFSS PATH AND TANGENT TO A SURFACE R E P F R ENC E POINT 
C *** WHICH IS EITHER THE TRANSITION OR MAXIMUM THICKNESS POINT. 

REAL KE, KEl, KIS, KM, KMM, KTC» KTS 
COMMON /BLADES / 

1 AMACH, ADC, AlSOASt AlSOAl, RINC, CALP, CCCt CEPE* CGBL, CHORD. 

2 CINC. CKTC, CKTS, Cl. C2, DKAPPA, ORCE, ORC3I, ORCMST, DRCMT , 

3 ORCOI, ORCT, DRCTI , OP1. OSMfc, OSMT, OSOI » DSOT, DSSE, OST, OSTI. 
A EMT, FI, f 2, GBL , ICL, IGO, IPASS, KIS, KM, KTC, KTS, P, PFLOS, 

S RCG, RCM, PC*S, RCT, ROl, RECGI , «EE, RENT, RET, RET! , RMSJ, RTRC 
6, Rl, R 1C , R2. SALP, SEPE, SGAM, SGBL , SJ, SKTC, SKTS, SLJO, T, 

7 TcPE, TGRLL. THO, THL? , TH«*AX, THTE, TKTN, TtS, MCI, VBl, VB2, ZM 
RMS = RO - DRC 
IT = 1 

10 CALL EPSL "'NIKE ♦ 1.57 07963, 0. 0»RO, TE , ORCE , REE I 
OR C S = CPC «- ORCE 
OK = KE - K mm 
hok = CK/2.0 
SR = SRSIHOK) 

S HDK = PDK *SR 

CH)K = SOf-Td.O - SH0K**2I 

n?S = OPCS/I $R*(CH0K*CKM - SHDK*SKM|) 

C AL l EPSLOPI K mm,OK,RMS,DSS,OPC S,RESI 
OF? = (P.0 * ^FCE l*E M S ♦ RES - REE 
IF (AtiS(CRE I.LT.1.0F-06) RETURN 
IF (I T .FO. ?) GO TO 20 
Kfcl = K F 
fc 1 = E 

Kf = Kf - ?.j*CPE*(CKM*( 1.0 -2.0*SH0K**2I -2. 0*SKM*$HDKRCHDK)/OSS 
IT = ? 

GO TO 1C 

20 < E = KE ♦ (Kt-1 - Kfl*ORE/(ORfc - ORE 1 1 

G n TP 10 
C NU 


SLR R CUT I NE CHAN 

■ C ALCL l a T 1 CN LF CPANACL AREA TO CHOKF AREA 

REAL INC, MC, KIP, KIS, KV, KCC. KOP, KOS, KP, KS, KTC, KTP, 
l KTS, KL C , PALL 
CCPPCN /VECTOR/ 

1 eETAS(l,21), CMATL(l), l 'LADFS(l», CHOKfc(l), CHOROAdl, CH 

2 CPC ROC (II, CPCC ( 6 ) , CbV(l,21), IDFV(l), IGEO(l), IINC(l), 


CPC ROC ( 1 


'LAOFS(l), CHOKE (l I, CHOROAdl, CHORDB(l) 

< • . t , ni'm « t t rcm i t r f Air i 1 t 
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O' \J* * 



3 ILCSSIl), 1*AX(1), INC* 1. 21 » . I S T N I 2 ) , ITRANSI1), NOPT(l), 

A MCUT(l), Ph I ( 1 f 21 ) # PC ( 2 *2 1 ) * RC2.21), R RHUB ( 1 ) * R»TIP(1), 

5 SLCPE (2*21 t * SOL I C ( 1 ) * TALE ( 1 ) , TAMAXU), TATt(l), TBLE(l), 

6 TBKAXU), T6TEU), TCL6(1>, TCMAX (lit TCTE(l), TOLF ( 1 I , TDMAX ( l ) , 

7 TCTE(l), TUTU), TC(2,21», TRANS(1,21), VTHI2.21), VM2,21I, 

B 2(2,21), 7 BHUB I 1 ) , ZPTIP<1), ZMAX(l,2l> 

COMMON /SCALAR/ 

1 BETA, CP, CPH2 , CPH3, CPHA, CPH5, CPH6, CPP3, CPPA, CPP5, CPPfc, 

2 CPI, CV, CCP, OF, DEC, LHCI, DLOSC, G, GAMMA, GJ, GJ2, GR 1 , GR2 , 

3 GR3, GRA, GR5 , H, I, ICCNV, 1COUNT, I6RROR, IlN, IPR, IROTQR, !R, 
A I RC W » ITER, IW, J, JM, MACH, NAB, NBROMS, NHUB ,NROTOR , NS TN, NSTRM , 
5 KTIP, NTUBES, OMEGA, PI, POA1, PR, RADIAN, RF, RG, ROT , TL , TOA1 , TU 

CCMMCN 

1 BET A1 ( 21 I , BETA2I21), CCSAC21), C0SU21), DKLE (1,21), DU21), 

2 GAMMI21I, 0BARI21), RElM(2i), RPRU21), RE1 (21 ) * RE2(2i», 

3 RE3I2U, REAI21I, RE5(2i), RVTHC2 1 ) , SINAI21), S1NU21), SLOS121) 
A, SCMC( 21 ) , THET API 21, 13 I, TFETASl 21, 13) , TREL 1(21), TSTaT(21), 

5 VMI21), VTSOI 21 ) , XBAR( 1,21 ) « Y6AR(l,21), ZP(21,13), ZSI21.13) 
CCPMON /EQUIV/ 

1 CFCI21), CHK( 21 ) , COS A2(21) , FSM(21), KIC(21), KOC(21), RCA(2l>, 

2 REC (2,21 ) , RPTE (2,21), SINA2(2l), SKIC(2l), SKOC(21), TALP(21), 

3 TCA(21). TEC (2, 21), TGB (21) ,TTRP( 21 ) « TTRS(21 ) , YCCLE (25 ) , YCCTE( 25) 
A., ZCCLE (25 ) , ZCCT6(25), ZCOA(21), ZEC(2,21), ZTRP(21), ZTRS(21) 

CCPMON /BLACES/ 

1 AMACH, ACC, A1SOAS, A1SCA1, BINCt CALP, CCC, CEPE, CGBL, CHORO, 

2 CINC, CKTC, CRTS, Cl, C2, DRAPPA, ORCE, ORCGI , DRCMST, DRCNT, 

3 CRCOI , CRCT , DRCTI, CRl, CSPE, OSHT, OSOI, OSOT, OSSE, OST, OSTI, 
A EMT, FI, F2, GBL, ICL, IGO, (PASS, KIS» RN, KTC , RTS, P, PFLOS, 

5 RCG, RCM , RCMS, RCT , RC1, RECGI, REE, REMT , RET, RETl , RMSJ, RTRC 
6,R1, R1C, R2, SALP, SEPE, SGAH, SGBL, SJ, SKTC, SRTS, SLJD, T, 

7 TEPE, TGBLL, THO, THE, THMAX, THTE , TKTN, TL S , WC1, YBl, YB2, ZM 
CCKMON /MARG/ 

1 AL, AOAS, AOA 1, CCHCRC, DAL, DAOAS, OPW, OPML, DRCLEP, DRCM, 

2 CRCTPI , DRCTSI, CRCWT, CSA, DSP, DSP1, DSP2, OSS, DSS1, DSS2, DSW 
3, EB , EWC , F, HC, ICHCKE, KIP, KOP, ROS, KP, KS.'KTP, KWC, PI2, RCI 
A , RCC , RCP, RCS, RCTP, RCTS, REL6P, REOI, REP, RES, RETP, RETS, 

5 REWT , RTR, RTRD, RTRC, SECGBL, TCGI , TGBL , WC , ZMT 
IF ( IGO. EC. 2 ) GO TO 310 
C CALCULATION OF CFANKEL WICTH 

ICL = 1 
DSW = 0.0 
DRCwC * CRCWT 
REWC = REWT 
RCS = RCTS 
KS = KTS 

250 CALL TANKAP(RC$,ORCWC,REWC,TK) 

WC * SORT (1.0 ♦ TR**2 ) 

IF (ABS(TK).GT. 100.0) GO TC 260 
WC = WC*ABS I DRCWC ) 

GC TC 270 

26C WC = WC*ABS!REWC/TK) 

270 KWC = ATAM-l.O/TR) 

IF (REWC. GT. 0.0) GO TC 275 
IF (DRCWC. GT. 0.0) GO TO 272 
KWC * PI ♦ KWC 
GC TC 275 

272 KWC = KWC - PI 

275 DK = KS ♦ KP - 2.0AKWC 

IF ( ABS(DK) ,LT. 0.0301 ) GC TO 300 
IF ( ICL.GT.l ) GC TO 2S<' 

ICL = 2 
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GSW 


IF ( ik . f. r . . o ) GC fo ? a o 
i • K L i = (KTS - KIS)/OS$l 

gc rc sif* 

28C DKCS - (KCS - KTS1/D3S2 
29 C OS Vi - OK*WC/ 12.0 - OKCS*v.C) 
ok * !)Kr.s*rsw 

CALL CPSLCM KTS,OK,RCTS»CSW,CRCS,RES) 

KS = KTS ♦ UK 

ORCViC = OHChT - CRCS 

«CS = RCTS ♦ CRCS 

R E W C = REWT - RfcS*-<CH/RCS 

GC TC 250 

3C0 IF ( CHOKE ( iKOt* ) .EC.O .0 . ANO. I CONV.Nc .2 I RETURN 
EV*C = REWC/RCP 

DRCR = DRClcP ♦ THLE - CRCWC/2.0 
310 HC •= 1.0 - URCM*SLJD*CCFCRD/!DR1 - Z (I - 1 , J > *SL JO ) 

AC A 1 = WC/WCl*HC 
F = (DSS1 ♦ CSW1/CSS 

PLCSS = SLCSIJJ -IF* 1CSPI ♦ DPW)/0SP1/2.0*PFL0S 
RTR = 1.0 ♦ RTRC*CRCP*SUP*(R1C ♦ 0RC«*SALP/2. 0 1 
RTRC = SORT ( RTR } 

A l SC AS = ! R f R**GR2 -1.0 ♦ PLCSS1/RTRQ 
320 ACAS = ACA1*A1S0AS/A1SCA1 

IF < ICHCKE.GT.l.OR.CHCKEURONl.EQ.O.O) RETURN 

(ADAS - l.O.GE.CHCKE! IRON I .OR. 1 1 NCURON > .GT . 3 ) RETURN 
(BINC.GT. ICKLE! IRCH, J » ♦ C.033>> RETURN 

READJUSTMENT OF INCIDENCE ANGLE TO RELIEVE L.E. CHANNEL CHOKE 
= (l.O/U.O ♦ P) ♦ CKCS*DSW/!KIC! J> -KOCI J* » » / 1 1 .0-WC*OKDS/2.0 » 
DSS - 0SS1 ♦ CSW 

31 - DSS + < DSS - WC*(KP ♦ EKC - KS)/2.0)*AI 
A1 = WC* A I * ( 1 .0 ♦ 2.0*AI» 

DI = ( HI -SCRT I BI**2 -4.0*AI*( 1.0 ♦CHOKE! IRON I-AOAS ) *RC > |/A!*0.0C1 
0 1 £ = BINC ♦ Cl - DKLE(IPOWtJ) - 0.0349 
LIMIT INCIDENCE ANGLE TC *2 DEG. ON 
IF (CIE.GT.C.O) DI * Cl - CIE 
CINC = RING + 01 
ICC = 2 
RETURN 
END 


IF 

IF 


C 


A I 


C *** 


L.E. OF PRESS. SURF. 


G *** FESET LF SUCTION SURFACE BLADE ANGLE AT SHOCK 

SLBRCUT INE SfiETA 

REAi INC, KIC, KIP, KIS, 'AN, KOC, KOP, KOS, KP, KS» KTC, KTP* KTS, 
1 KWC, PACE 
CC**CN •' VECTOR/ 

1 eFIAS(i,21», ePATL(l), fiLAOESm, CHOKE! 1 ) , CHORDA 111, CHOROBllI, 

2 tFi'RUC(l), CPC0!6) , CEV(1,21), IDEVIl), IGEOlil, IINC!1I, 

2 ILDSS(l), l PAX ! 11, INC! 1 ,21 » , ISTN(2), I TRANS! 1 ) , NOPTIU, 

/, NXCurm, PHI ( 1 , 21 ) , PU ( 2 , 2 1 ) , R(2,?ll, RBHUBIU, RBTIP!l>, 

5 Sirp&(2,21», SOL ID ( 11, TALE! 1 > » TAMAX41J, TATE 111, TBLE ( 1 ) , 
t T:>*AX(1I, (BTE(l), TCLE ( 1 ) , TCMAXU), TCTEill, T0LEI1I. TDNAX! 1 1 , 
7 T(M (1), TILTH), TC«2,21), TRANS!1,21). VTH(2,21)t VZ(2,21), 

« /'/.111, ZBHUmil, ZeTIP!l), ZMAX!l,2l> 

C C f v • N /SCALAR/ 

1 EFIA, LP, L PH2 , CPH 3 , CPH4, CPH5, CPH6, CPP3, CPP4, CPP5, CPP6, 

? '.v, UCP, OF, RFC, LHC I , DLCSC, G, GAMMA, GJ, G J2 , GR1, GR2, 
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t 


3 GR3, CR4, GR5. H, I, ICCNV, ICOUNT, IERKQR, UN, IPR, IRCTGR, [ R, 17 

4 IRCW, ITER, IW, J, JM, MACH, UAH , NHROWS, NHUB , NROTCR , US Tu , NS TR M, 18 

5 MIP, NT (J B c S , OMEGA, PI, POA1, PR, R AO 1 AN , RE, RG, RO T , T L , TOA I , T U IQ 

' CC*MCN PO 

1 8ETAK21), 6ETA2(?1I, CGSAI21), COSLI2i>, CKLE(l,21), OL(21), 21 

2 G AM M ( 21 ) » CHAR (21), R E L M( 2 1 ) , RPR 1(21), REK21), RE2(2l), 2? 

3 R E 3 ( 2 1 ) , RE4(2l), RE5(21), RVTH(2l), SINA(?l), SINLI21). SL0S(21) 23 

4, SCMC (21 ) , THET AP ( 2 l , 1 3 ) , THE T AS ( 21 , 1 3 ) , TRELK21), TSTAT(21), 24 

5 VM ( 21 ) » VTSOt 21 ) , xeAR(l,21), Y8A«(1,21), ZP(21,13>, ZS(2i,l3) 25 

CCMMON /ECU IV/ 26 

1 CHC (21), CHK(21), CCS A2 (21 ) , FSM(2l), KIC(21), K0C«2l>, RCA(211, 27 

2 REC (2*21 ) , RPTEC 2,21), SINA2I21), SKICI21), SK0C(2l), TALP<21), 28 

3 TCA (21) , TEC ( 2,21 ) *• TG8 <2 1 ) , TTRP ( 21 ) , TTRS ( 2 1 ) , YCCLE ( 25 ) , YCCTE < 2 5 ) 29 

A, ZCCLEI25 ) , ZCCTE(25), ZC0AI21), ZEC(2,21), ZTRPI21), ZTRS(21) 30 

CCMMCN /BLADES/ 31 

1 AWACH, AOC ♦ AiSOAS, A1SCA1, BINC, CALP, CCC. CEPE, CGBL. CHORD* 32 

2 CINC, CKTC. CRTS* Cl, C2, OKAPPA, ORCE, 0RCG1 , ORCMST, ORCMT, 33 

3 CRCOI * CRCT • DRCTI, CRl, CSME, OSMT, DSOI, OSOT, DSSE, DST, DSTl, 3A 

A EMT, FI, F2, GBL, ICL, IGO, IPASS, KIS, KM, RTC, KTS, P, PFLOS, 35 

5 RCG , RCM, RCMS, RCT , RD1, RECGI , REE, REMT , RET, . TI, RMSJ, RTRC 36 

6,R1, RIC, R2, SALP, SEPE, SGAM, SGBL, SJ, SKTC, SKTS, SLJO, T, 37 

„ 7 TEPE, TGBLL, THO, THLE, THHAX, THTE , TKTN, TlS, MCI, VB1, YB2 , ZM 38 

_ CCMMCN /MARG/ 39 

1 AL, AOAS, A0A1, CCHCRD, OAL, OAOAS, DPH, DPWL , DRCLEP, ORCM, AQ 

2 CRCTPI, DRCTSI, CRCWT, CSA, DSP, DSP1, DSP2, OSS, DSSi, DSS2, DSW A1 

- 3,EB, EWC, E • HC, ICHCKE, KIP, KOP, KOS, KP, KS, KTP, KMC, PI?, RCI A 2 

A, RCC * RCP, RCS , RCTP, RCTS, RELEP, REOI, REP, RES, RE TP, RETS, A3 

5 REMT, RTR , RTRD, RTRC, SECGBL, TCGI , T GBL , WC, ZMT AA 

BETAS! IRC W , J ) = KS A5 

IF ( DSW.L E . LSS2 ) GC TC 2 36 46 

IF ( I TRANS ( IRQMI.EQ.2) TRANS( IROW, Jl = 0.9 A7 

f CHKCJ) = 0.0 48 

FSM(J) = l.l A9 

l GC = 2 50 

RETLRN 51 

336 IF ( ITRANSI IR0M).NE.2 ) RETURN 5? 

C *** RESET THE TRANSITION POINT AT THE SHOCK IMPINGEMENT POINT 53 

IF (DSW) 337,339,338 54 

337 DK = KOC(J) - KOS 55 

DSW = DSW/I0SS2 - THT t*DK* (1.0 4 0K*0K/3.0*( 1.0 ♦ 0.4*DK*OK))) 56 

DK = DSW* ( KOCI J ) - KTC) 57 

DSW = DSW*CSCT 58 

CAUL EPSLCN(KTC,OK,RCT,CSW,DR,RE) 59 

CALL RP0INT(RCI,DRCTI4CR,RETI*RE, TGBLL, OR) 60 

TRANS! IROW, J) = CR*SECC8L ♦ THLE 61 

RETLRN 62 

338 OK = KIS - KICIJ) 63 

DSW = DSW/(0SS1 - THL6*CK*(l.O 4 DK*0K/3.0*l 1.0 ♦ 0.4*DK*0K ) ) ) 6A 

OK = (KTC - KICIJ) )*( 1.0 ♦ DSW) 65 

DSW = DST I * ( 1.0 ♦ OSW) 66 

CALL EPSLCN(KIC(J),DK,RCI*CSW,DR,RE) 67 

call RP0INT(RCI,DK,RE,TGHLL,CR) 60 

TRANSI IRCW, J) = CR*SE CCBL 4 THLE 69 

339 RETLRN 70 

END 71 
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SUBROUTINE POINTS 

REAL INC, KlC, KIP, KIS, KM, KOC, KOP, KOS, KP , KS, KTC, KTP* KTS, 
KWC, MACH 
CCPPCN /VECTOR/ 

eETAS(l,21), BMATU1), PLADESin, CHOKE (1), CHORDA(l), CHORDBI1), 

CHCRocm, cpcei6), cevti,21), ioevid, igeoid, iincui, 

mssm, I MAX ( II • INCH, 211, 1STN(2>, ITRANSU), NOP Till, 
NXCUT(l), PHM 1 ,21 ) , PC t 2 , 2 1 » , R ( 2 , 2 1 ) , RBHUB(l), RBTIP(l). 
i SLCPE(2,21), SOLID! 11, TALE (1 I* TAMAX(l), TATE(l), TBLE ( 1 ) * 

: TfiMAX(l), TBTE(l), T C l E ( 1 ( , TCMAX(l), TCTE(l), TCLE(l), TDMAX(i), 


A NXCUT! 1 ) , PHI! 1 ,2 
5 SLl PE ( ? , 2 1 ) , SOLI 
fc TfiMAXIl), TBTE ( 1 ) 
7 TCTF(l), TILT! 1), 


T C ! 2 , 21 l , TR ANS ( l , 2 


, R ( 2 , 2 1 ) , RBHUB(l), RBTIPI1I. 

SLL PE ( ? , 2 1 ) , SOLID!!!, TALE(l), TAMAX(l), TATE! 1 ) , TBLE ! 1 ) * 
TfiMAX(l), TBTE ( 1 ) * TCLE(l), TCMAX(l), TCTE!1), TDLE ( 1 > , TDMAXI 
TCTF(l), TILTH!, T C ! 2 , 21 ! , TRANS(l,21), VTH(2,21), VZ(2,21>, 

/MAX (1,21) 

), COSH211, OKL 1 1 1 * 2 1 ! t DL(21>, 
RPR 1(211, RE 1 ( 2 1 ) , RE2I21), 


f lUinill I i ! I i. r V t c * £ f 

0 7 ( 2 , 21 ), 7 BHU 0 (l), 7 PT 1 PI 1 ), ZMAX( 1 ,? 1 ) 

COMMON 

1 B 5 TAH 21 ), BETA 2 ( 21 > , CCSA( 21 ), COSL( 21 !, OKLtCl, 21 », DL( 21 ), 

2 0 AMM( 2 l), CeAR( 21 ), RELMI 21 ), RPR 1 ( 21 ), RE 1 ( 2 1 ) , RE 2 I 21 ), 

3 RE 3 ( 21 ) , REA ( 21 ! , RE 5 ( 2 1 ! • RVTH( 21 », SINA< 21 ), SINLI 21 ), SLOS( 21 l 
A, SON IC ( 2 1 ) » TH 6 TAP( 2 t, 13 », THETAS! 21 , 13 ) , TRELH 21 ). TSTAT( 2 ll, 

5 VP( 21 ) , VTSCI 21 ) » XBAR ( 1 , 21 ), YBAR! 1 , 21 ), ZP( 21 , 13 )t ZS( 21 , 13 ) 
CCMMON /ECUIV/ 

1 CHC 1 31 ) , CHM 21 ), CCSA 2 I 21 ), FSM( 21 », KICC 21 J, KOCI 21 ), RCA( 21 ), 

2 REC ( 2 , 21 ) , RPTE ( 2 , 21 ), SINA 2 I 21 ), SKIC I 21 ) , SKOCI 21 ), TALPC 21 ), 

3 TC A ( 2 1 1 , TEC ( 2 , 21 ), TCB <2 1 ) ,TTRP ( 21 1 , TTRS ( 2 1 ) , YCCLE 1 251 ,YCCTE (25 ) 
A, ZCCLE (25 I , ZCCT E ( 25 ) , ZCDA( 21 >, Z 6 C( 2 , 21 ), ZTRP( 21 ), ZTRS( 2 l) 

CCMMCN / PTS/ FSe«l 3 ) 

rniwr^ /Cf A i Afi/ 


CCMMCN / R L AL'ES/ 

1 AMACH, ACC, A 1 SO AS, A 1 SLA 1 , 

2 CINC, CKTC, CKTS, Cl, C 2, 0 


, CALP, CCC, CEPE, 
norc. norm. no< 


CKTS, Cl, C 2, OKAPPA, DPCE, DRCGI, DRCMST, DRCMT, 
ORCTI, CR 1 , CSME, CSMT , DSOI, CSOT , DSSE, DST , DSTl, 
GBL, I CL , IGC , IPASS, KIS, KM, KTC, KTS, P, PFLOS, 
DfT . d i' i . Dtrni. ftPF. ftFMT. RcT. RFTI. RM$J. RT 


2 CRCTPI, C R C T S I , CRCaT, LS A , DSP, OSP1, OSP2, OSS, DSSl, DSS2, DS 
3,EB, EWC, f , HC, ICHCKF, KIP, KOP, KOS, KP, KS, KTP, KMC, PI2, RC 
A,PCl, RCR, RCS , RCTP, RC IS , RELtP, RFOI, REP, RES, RETP, RETS, 

5 REVnT, RTR, RIRD, RTRC, SECGPL, TCGI, TGBL, WC , ZMT 
*** BLADE ELEMENT SUCTION SURFACE Z AND THETA ARRAYS REFERENCED 

*** TC the BLADE HUB STACKING POINT 
5CC ZTRSTJ) = ZCCA(J) ♦ (CkCTSI - ORCC I ) *CCHORD 
R TC = R1C ♦ (URCTSI ♦ THLE)*SALP 


K II = w » IU«U3I 

TTKS(J) = RITS/RTC - 
jrr i i-i .1 1 i /rrAi.n 


ZEC ( I-i ,J> = ZCr.A( j) - 
ZEC(I.J) = ZCCA(J) + (CRC 
TEC ( I-I, J I = -TCA( J) - TC 
TEC ( I , J) = KLC 1/ (RIC « ! f 
REC LI-1, J) = R ( I - 1 , J ) ♦ T 
REC ( I , J) = K ( I , J I - TT-TC * 
FST = OSSl/LSS 
nr t bo k = i , 1 3 

FS = FSB(K) - FST 
IF (FS.GT. ".0) CC TO 520 
DSS = !'SS1*ES/FST 
OK (KIS - KIS)*CSS/C?.S1 


TCA(J) - TCGI 
- C -'CC! ACCHORO 
( CR CO I -• i.RCGI )*CCHORU 
-TCGI 

■* ( IMLE ♦ URCOI )*SALP» ♦ 
♦ THLE*CCHORD 


TEC(I-l.J) 


r\ i | * f I * v, 

K ( I , J I - TT-TC *CCHCRC 


160 


GC 1C 530 62 

52C DSS = ()SS2»ES/ I 1 .0 - t-S r ! 63 

DK = I KL$ - K I S ) * U S S / E S S 64 

530 C/'LL FPSLCN(KIS,OK f RCTS,i 5", CP' IS, RE SI 65 

ZS(J,K) - ZTRS(J) ♦ LRt T 5*CO'.'Kl> 66 

550 THE I AS ( J , K ) = TTRS(J) ♦ ••FS/(RTC ♦ OPCTS*SAlP> 67 

C *** BLAOE ELEMENT PRESS K t SURFACE Z AM- THETA ARRAYS REFERENCED 68 

C *** TC THE BLADE HUB STACKING ?0 1 NT 69 

ZTRPIJ) = ZCDA(J) ♦ (I.RCTPI - DRCG I ) *CC HORO 70 

RTC = R1C ♦ (CRCTPT « n-lL»*54LP 71 

TTRP(J) = RETR/RTC - TCA(J) - TCGl 72 

FST - DSP 1/DSP 73 

DC 600 K 3 1 » 1 3 74 

FS - FSBIK) - FST 75 

IF (FS.GT.C.O) GO TO 570 76 

DSS = DSP 1*FS/FS T 77 

DK = IKTP - KIP)*CSS/CSPI 78 

GC TO 580 79 

570 DSS = DSP2*FS/U.O - FST) 80 

OK 3 (KOP - KTP) *0SS/CSP2 81 

5eC CALL EPSLCN(KTP,OK,RCTP,CSS,CRCTS,RES) 82 

ZP(J,K) = ZTRPIJ) ♦ ORCTS*CCHORO 83 

600 THETAP(J,K» = TTRP(J) ♦ RES/ ( RTC ♦ ORCTS*SALP> 84 

TGB(J) = TG3L 85 

RETLRN 86 

END 87 


SLBRruTINE STACK ! 

C *** THIS ROUTINE FINCS THE CENTERS OF AREA OF BLADE SECTIONS 2 

C ** > WHICH PASS THROUGH THE INTERSECTIONS OF THE BLAOE ELEMENTS WITH 3 

C *** THE STACKING LINE. BLADE ELEMENTS ARE TRANSLATED ON THE CONE TO 4 

C *♦* GET THE R L ACE SECTION CENTERS NEARER THE STACKING AXIS. 5 

REAL INC, KIC, KIS, KM, KOC, KTC * KTS , MACH, MCA, MCT , MDA, MOT 6 

CCKKCN /VECTOR/ 7 

1 BE T AS ( 1 , 21 I , BMATL(l), CLAOESUl, CHOKE(l), CHORDA(l), CHORDB(l), 8 

2 CHCRDCI 1 ) , CPCCI6), CE V ( 1 , 2 1 ) , IOEV(l), IGEO(l), IINC(l), 9 

3 ILCSS(l), I MAXI 1 ) * INCH, 21), ISTNI2), ITRANS(l), NOPT(l), 10 

4 NXCUTIl), PHI(1,21), PC (2, 2 1 ) , R(2,21>, RBHUBI 1 ) , RBTIP(l), 11 

5 SLOPE (2,21 ) , SOL I D( 1 ) , TALEU), TAMAX(l), TATE ( 1 ) , TBLE(l), 12 

6 TBMAXIl), TBTEI 1 ) , TCLE(l), TCMAX(l), TCTE(l), TDLE(l), TDMAXIil, 13 

7 TDTE(l), TILT(l), TCI2.21), TRANS (1,21), VTH(2,21), VZ(2, 21), 14 

8 Z(2, 21), ZBHUB(l), ZPTIP(l), ZMAX(1,21) 15 

COMMON /SCALAR/ 1 6 

1 BETA, CP, CPH2, CPH3 , CPH4 , CPH5, CPH6, CPP3, CPP4, CPP5, CPP6, 17 

2 CPI, CV, CCP, OF, OHC, LHC I , OLOSC, G, GAMMA, GJ, GJ2, GRl, GR2, 18 

3 GR 3 , GR4 , GR5 , H, I, ICCNV, ICOUNT, I ERROR, IIN, IPR, I ROTOR, IR, 19 

*. IRCW, ITER, IW, J, JM, MACH, NAB, NBROWS, NHUB »NROTOR,N$TN,NSTRM, 20 

5 NT I P , NTUBES, OMEGA, PI, P0A1, PR, RADIAN, RF , RG, R0T,TL,T0A1,TU 21 

CCMMCN 22 

1 BETAK21), 8E TA2 ( 21 ) , CCS A ( 21 1 , C0SK21), 0KLE(l,2ll, DL(2ll, 23 

2 GAMM ( 21 ) , CP AR (21), RELM21), RPRK21), RE1(21), RE2(21), 24 

3 RE 3 ( 2 1 ) , RE4I21), RE5I?!), RVTH(21), SINA(21>, SINU21), SL0SI21) 25 

4 , SC NI C ( 2 1 ) , THE T AP ( 2 1 , 1 3 ) , THE TAS( 21 , 1 3 ) , TRELK21), TSTAT(21), 26 

5 VM i 2 1 ) , V T SC ( 2 1 ) , XPAR(1,21), YBAK( 1,21), ZP(21,13), ZS(2l,13) 27 

CCMRCtj / E C L i V / 28 

1 CHK (21), CCSA2I21I, rSM(21), KIC(?1), KOC ( 21 ) , RCA( 21 ) , 29 

2 RfcC(2,?l), MHTt(2,21), S I \ A 2 ( ,? 1 ) , SKIC(?l), SK0C(21), TALPI21 ), 30 
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s 


c 

c 


3 TCM M ) , Ur < ?, ?l ) t TCH (21 ) , TTRP< 21 ) , TTRSI 21 ) , VCCLE <25) , YCCTE<25> 
4 f ZCCLE<25>, /C C T E < 25 ) , l C0M21), ZE C(2,21), ZTRP121), ZTRS(21) 

CC**GN /PLACES/ „ _ 

1 AMACH, ACC t A 1 SC AS , A1SCA1, BINC, CALP, CCC t CEPE, CGBL * CHORD? 

2 CINC» CKTC, CKTS, Cl, C 2 1 DKAPPA, DRCE, ORCG1, ORCMST, DRCHT , 

3 CRCOI, DRCl f CRCTl, CPI, CSME, CSHT f DSOl , CSUT, DSSE, OST, DSTI, 
A EMT, FI, E 2 , GBL , ICL, lGC t IPASS, KIS # KM, KTC, KTS, P, PFLOS, 

5 RCG, RCM, RCMS, RCT , ROW RECGI, REE, REMT, RET, RETl, RMSJ, RTRC 
6,R1, R 1C R2, S A L P , SEPE, SGAM, SGBL , SJ, SKTC, SKTS, SLJLi, T, 

7 TEPE, TOPLL, THC, TELE, THMAX, THTE, TKTN, TLS, WC1, YBl, YB2, ZM 
COMMON /R CU T / AC, CCSKL, COSKU, £*TM, IOUT, IT* NP, SINKL, SINKU, 
1 C X ( 13), E*(14), YBP < 1 A ) , YBSI1A), ZBP(iA). ZBS(lA) 

ECUI VALENCE < JL, I CU 
IF (ICCNV.LT.2> WRITE <IW,2CCO! 

ICUT = 0 

DC ? 90 J=1,NSTRM 
JL = J 

STC = TCAIJ)*SRS(TCA( Jl> 

XCLT = RCA( J)*SCRT(1.C - $TC**2) 

IF <TALPtJ).GT.O # 0) JL - JL * 1 

IF UL.LT.2I JL = 2 

IF i JL.GT.NSTRM-2) JL = NSTRM - 2 

JLl = JL 

CC 20 K= l , 1 3 

20 CALL lNTERP(XCUT,2tK,YBS(K>*ZBS«K>> 

TANE = ( YBS ( 131 - YBS <1> 1/ ( Z2SI 13 } - ZBSC1H 

CALI INTERP(XClfT,2tO,YeSCiA),ZBSU4n ^ _ 

TRANSLATE BLADE SECTION COORDINATES TO THE STACKING POINT 
♦ ** ORIGIN AND ROTATE TO LIE ALONG THE BLADE SECTION CHORD* 

CCS E = I • C/SQRT ( 1 *0 ♦ TAKB**2) 

SINE = T ANB*CCSB 

OZ = ZCC A I J I *COSB - RCAIJ)*STC*SINB 
DY - RCA( J)*STC*CCSB ♦ ZCDACJI*SINB 
CC 2A K= 1 , 14 
YB T = YfcS(K) 

YBS(K) = Y PS ( K ) + CCSB 
2 A ZPS(K) = ZPS ( K ) *CCSB 
ZBP(l) = ZPS(l) 

YBP ( 1 ) = YPS( n 
zep<13) = ZBSU3I 
YP P < 1 3 ) = YBS (13) 

IF ( J.NE.1.CR.ICCNV.GE.2) GO TC 23 

;f < I STM I) .IT •O.OR* 8MATU IRCTOR) *LE *0#0) GO TO 28 
CC 26 K = ? , 12 
YPP(K) = YRS(K) 

26 ZeP(K) = Z PS I K I 

28 CALL SPLITGI ZBS,YBS, 1A,AP,AXP, AYP,SP1.SP2) 

JL = JLl 
OC 213 K= 1 ,13 

210 CALL lNTFRP<XCUTtl.K,YBS(Klt ZBSfKI) 

CALL INTERP(XCUT,ltO f YBSUA) ,ZBSf 14) ) 

K = 1A 

DC 215 K= l , 1 A 
YeT s YH$m 
YPS(K) - Y P S ( K ) ♦CCSB 
2 1 E ZPS(K) = ZPS(K)*CC$B 

zs? = ZHSim 
YS2 - YBS I 13) 

CALI SPLITC(ZBSfYBStlA,AS f AXStAYS, SSltSS?) 

CALI rnr,PS( / S 2 , YS2, SS ' f Z'P ( 1 n t YBP ( 13 ) , SP2, AT, AXT , A Y T , RTE , ZC TE , 

X Y C T - ) 


Z PS I K I *S INB ♦ DY 
YPT*SINB - DZ 


ZBS(K)*SINB ♦ DY 
YBT ♦S INR - DZ 


31 

32 

33 

3 A 

35 

36 

37 

38 

39 
AO 
A1 
A2 
A3 
44 
A5 
A6 
A7 
A8 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 
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62 

63 

64 

65 

66 

67 

68 
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87 
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89 
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LOCATION. 


CALL EDGESIZRSI 1),YHS( l),SSl,/RP(l) , YBP ( l),SPl,A,AX t AY,RLE,/'"L r . 
X YCLE > 

A - A-fSS-AP-AT 
AX = AX ♦ AX S - AXP - A X T 
AY = AY ♦ AYS - AYP - AYT 

xe = ax/a 

YB - AY/A 

1 readjustment cf xrar, YPAR AND BLADE edge location. 

DZ = <X6*CCSB - YB*SINR)/< l.c - TLS*TALP<J>) 

z ( I- 1 * J » = Z ( 1-1, J» - cz 

Z 1 1 , J I = Z(I,J) - cz 

RU-l.J) = MI-l.JI - CZ *T AL PI J 1 

ftII,J> = R I I , J ) - OZ *T AL P( J ) 

DM = DZ*SCRT 1 1.0 ♦ T AL F I J) **2 I /CHDI J ) 

DY = IXBPSINB ♦ YB*CCS8 l/CHDI J > 

C6BL = 1.0/SQRT C l.C ♦ TGHU)**2» 

SGBL = CGBl*TGBIJ> 

XBAR ( I ROM, J I = XBARI IRCW, J > ♦ OM*CGBL «• OY*SGBL 
YBAR ( IRCW, J) = Y8AR1 IRCM ,J 1 - OM*SGBL *■ OY*CGBL 
IF I ICCNV.IT .2 1 WRITE CIW, 20101 ITER, J, BETAl(J), BETA2IJ), 

X SKICCJ1, SKOCIJI, KICIJI, KCCIJI, DM, DV, SINB, DZ, A 


* OY*SGBL 
*■ OY*CGBL 

Jt 8ETAUJ1, BETA2IJ), 
OY, SINB, DZ, A 


IF I ISTM I J.LT.O.OR.BMATU IRCTORI.LE.O.OI GO TO 290 

IF (J.GT.l) GC TO 280 

AC = A 

XC = XCLlT 

MCA = o.n 

MCT = 0.0 

MCA = 0.0 

MCT = 0.0 

IF I ABS( T ALP ( 1 ) I .LT.O .01 I GO TO 290 

TAPERED ROTOR TIP mate. CENTRIFUGAL BENDING MOMENT CORRECTION 
ZPLE = ZC LE*CCSB - YCLE*SINB 
ZPTE - ZC T f *CCSB - YCTE*SINB 
Z PL = ZPLE 
DC 240 K= 2 , 1 3 
OZ = ZBP I K ) - ZBP(K-l) 

DY = YBP ( K ) - YHP ( K— 1 ) 

0 = CZ*CCSP - CY*SINB 

AP - ( l)Z* S I N H ♦ DY*CC$°)/D 

BP = (ZfaP(K)*YBPCK-n - ZBP(K-1)*YBP(KI I/O 

IF (K.NF. 13) GC ! C 22C 

ZPP = ZPTE 

GC TC 230 


ZPP - ZHP ( K ) *CCSB - Y PP ( K ) *S I NB 
ZFS1 = ZPP f Z PL 
Z PS 2 = ZPS1*ZPP ♦ ZPL **2 
ZPS 3 = l PS?*ZRP + ZPL**3 

CM = ( XC L T ♦ ZPS l*TALP I l 1/4 .C I* < ZPP - ZPL) 
APT = AP*ZPS2/3.0 ♦ BP*Z PS 1 / 2 . 0 
MCA = MCA - CM* (AP*ZPS3/4.0 ♦ BP*ZPS2/3.0) 
MCA = MCA - CM* APT 

MCT = MOT ♦ CM*< AP**2*ZPS3/B.O ♦ BP*<AP*ZP 
MCT = MCT - CM*APT 
ZPL = ZPP 


BP*I AP*ZPS2/3.0 * BP*ZPS1/4.0I> 


ZPL 

= 7PLE 


KL 

= 1 A 


IF 

( / H $ ( 1 A > . L E 

.zasci 3 ) 

GC 

V) K = 2 » K L 


IV 

-= 7 ° r» ? k ) - 

7PS(K-1 ) 

CY 

- VI J ,J ( K ) - 

vcs (*-i ) 

c - 

1 . 1 *C f S i> - 

I T4 p 
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(0/*S!NP * CY*CCSP>/D 
= (ZUS(K)*Yt?S(K-l I - ZBS(K-1 )*YBS(KM/D 

I K . N p . K l ) or TC 2 5C 
= Z PT E 

rc 260 

= 2 B S I K ) *COSB - YPS(K)*SINB 

1 = Z FP ♦ ZPL 

2 = ZPS 1 * ZPP ♦ ZPL**2 

3 = ZPS2*ZPP ♦ ZPL**3 

= (XCUT ♦ ZPSl*TALP«n/A.C)*(ZPP - ZPL> 
= AS*ZPS2/3.0 ♦ BS*ZPSl/2.0 


B$*ZPS2/3.0) 

♦ BS*( AS*ZPS2/3.0 ♦ BS*ZPSl/A.OH 


MCA = 
MCT = 


XCUT>/2.0 


APT = AS*ZPS2/3.0 ♦ BS*ZPbl/ 2.«J 

MCA = MCA ♦ CM* I AS*ZPS3/A.O ♦ B$*ZPS2/3.0) 

MCT = MCT - CM*( AS**2*ZPS3/8.0 ♦ BS* ( AS*ZPS2/3.0 ♦ BS*ZPSlM.OH 
MCT = MCT ♦ CM*APT 
27C ZPL = ZPP 

CM = PI*< XCUT ♦ ZPLE*TALP(ll/2.0)*ZPLE*RLE**2/2.0 
MCT = MOT - CM*( ZCLE*S INB •* YCLE*COSM 
MCT = MCT ♦ CM 

MCA = MOA ♦ CM*( ZPLE - A .0*RLE/( 3.0*P I H 

MCA = MCA ♦ CM „ 

CM = pi*( XCUT ♦ ZRTE*TALP( 1 >/2.3l*ZPTE*RTE**2/2.0 
MCT = MOT - CM*< ZCTE*S INB ♦ YCTE*C0S8) 

MCT = MCT ♦ CM 

MCA = MCA ♦ CM*(ZPTE •* A .0*RTE/( 3.0*PI 1 1 
MCA = MCA ♦ CM 
MCA = MDA*TALP<n 

MCA = MCA *TALPIH*(XCLT - RCA(NSTRM) ) 

MCT = MOT *T ALP ( 1 • 

MCA = MCA*TALP(l)*(XCtT - RCA( NSTRM ) I 
rr Tr 290 

*♦* SUMMATION FOR RCTCR MATERIAL CENTRIFUGAL BENDING MOMENT 

280 RM = (XU ♦ XCUT 1/2.0 „ 

CMC = (A ♦ AU>*RM*(RM - RCA(NSTRM) 1*1 XU - XCUTI/2.0 

MCA = MCA ♦ CMC 
MCT = MCT + CMC 
AL = A 
XU = XCUT 
2 AC CCN1INUE 

IF (ICCNV.Gt.2) RETURN , „ „ tT11DM 

IF ( ISTM D.LT.O.CR.eMATlC IRCTORI .LE.O.OI RETURN 
f All OASMNT (GBA.GBT) 

TANE = 8MATL ( IRCTCR)*CMECA**2/( 1A4.0*G I 
T AN L = -(MCA ♦ GBA/T ANE ) /MCA 
TANE = (GBT/TANE - MCTI/MCT 

OZ^^i^RPTIPt ?RCWJ T — ^RBHL8( l ROW) I *TANL ♦ ZBHUB(IROH) - ZBTFPUROWI 
X )/(1.3 - TANL*TALP(in 
ZeTlP(IRCW) = zbtipi ircwi ♦ cz 
wptipitrpwI s RBTIPI IP OW ) ♦ CZ*TALP(1) 

*** READJUSTMENT CF ELACE ECGE LOCATION FOR CHANGE IN STACK LINE. 

CZ =(RCA(Jl - RCA(NSTRM)»*(T ANL - TLS)/(I.O * TALP( JI*TANLl 
Z(I-l.J) = Z(I-l.J) ♦ CZ 
Z ( 1 , J> = Z(I.J» « CZ 
R(I-ltJ) = R ( I -1 » J ) ♦ CZ*TALP(JI 
3 1 C R(I,J) = R(ItJ) ♦ OZ*TALP( J) 

2CCC FORMAT Kill 1X,4HITER,?X,1FJ,4X,8HBETA1( JI,3X,8HBETA2(J».4X, 

1 7FSKICI J ) , A X , 7HSK0C ( J ) , 4X , 6t-M C ( J ) , SX, 6HK0C ( J I , 7X, 2H0M, 9X , 2HDY. 

? 8X,41<SINP,BX,?HDZ,1CX,1>A //) 


STACK LINE. 


- TALP( J»*TANLI 
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2 14 

215 


2C1C FORMAT (lX,I3,?X,I3,F12.6,5F11.6,2F11.7 f Fil.6,Fll.7,FU.6) 
ENC 


SUBROUTINE IMEK?IXC,ISl!«F,K f YC,ZCl 

C ♦** FOR A GIVEN X ( PLACE SECTION) THIS ROUTINE FINOS BLADE SURF * 

C ♦♦♦ CARTESIAN COORDINATES, Y AND Z, AT A GIVEN K {FRACTION OF BLADE 
C *•* ELEMENT SURFACE DISTANCE). THIS IS CONE BY INTERPOLATION FROM 
C ♦♦♦ PIECEWISE CUBIC FITS CF APPROPRIATE BLADE ELEMENT SURFACE COORD. 

C INTERPOLATIONS ARE BETWEEN THE 2 INNERMOST CUBIC POINTS WHENEVER 

C FCSSI91E. 

REAL KIC, KIS, KM, KCC, KTC » KT$, MACH 
CCMMCN /SCALAR/ 

1 BETA, CP * C PH2 ♦ CPH3, CPH4, CPH5, CPH6, CPP 3 , CPP4, CPP5 , CPP6, 

2 CPI* CV, CC P » CF, DHC, CMC I , DLOSC, G, GAMMA, GJ, GJ2 , GR1 * GR2 , 

3 GR3, GR4, GR5, H, I, ICCNV, ICOUNT, I ERROR, IlN, IPR, IROTOR, IR, 

4 I RC W, ITER, IW, J, JK, MACH, NAB, NBROWS, NHUB , NROTOR , NSTN ,NSTRM, 

5 NT IP, NTU^ES, OMEGA, PI, PCAl, PR, RAOIAN, RF, RG* ROT , TL , TOA1 , TU 
CCMMCN 

1 BE T Al ( 21 ) , BtTA2(21), CCSA 121), COSLI21), OKL£(lt21lv OLI21I, 

2 GAMMI21), CeAR<21), RELPI211* RPR1I21), RE1T21), RE2C2U, 

3 RE3C21), RE4C21), RE5I2T), RVTHI2U, SINAI21), SINLI2U, SLOSC21) 
4, SCMC 1 21 ) , THETAPC2 It 13 )r THE T AS { ? 1 , i 3 ) , TREL1I21), TSTAT(21), 

5 VM ( 21 ) , VT SCI 21 ) # XBARll f >ll, Y9AR{1,2II, ZPI21,I3)t ZS(21tl3) 
CCMMCN /ECLIV/ 

1 CHCI2I), CHKI21), CCSA2I21), FSMI21), KICI21), KOC<21), RCAI211, 

2 RE C 12, 21), RPTE ( 2,21 )♦ SINA2(?1), SKICI21), SKOCI21), T ALP 121 ) , 

3 TCAI2I), TEC(2,21), T GB (2 1 ) , T TkP I 2 I ) , TTRS ( 2 1 ) , YCCl E ( 2 5 ) , YC CTE 1 25 ) 
4 , ZCC LE ( 25 ) , ZCCTEI25), Z CC A ( 2 1 ) , ZECI2,21), ZTRPI21), ZTRSI21) 

CCMMCN /PLACES/ 

1 AMACH, ACC, A I SC A S , A1SCA1, BINC, CALP, CCC, CEPE, CGBL, CHORD, 

2 CINC, CKTC, CKTS, Cl, C2, DKAPPA, DRCE , ORCG1, CRCMST, DRCMT , 

3 CRCOI, CRCT, CRCTI, L^l, CSME, CSMT, OSOI , DSOT, DSSE, OST , OSTI, 

4 EMT, FI, F 2 , GPL , ICL, IGC, IPASS, KIS, KM, KTC , KTS, P, PFLOS, 

5 RCG , RC* 4 * ♦ RCMS, RCT , RCl, R £CG I , REE, REMT, RET, RETI, KMSJ, RTRC 
6 , R 1 , RIC, >2 t SAIP, SFPE, SGAM, SGML, SJ, SKTC, SKTS, SLJD, T, 

7 TEPE, TGKUL, T HD , TELE, THMAX, THTE , TKTN, TLS, WC1, YBl, YB2 , ZM 
CCMMCN /LCCATE/ XX, XI, X2, X3, X4 
ECU I VALENCE I JLt ICL) 

IF < ISURF.EG.2) OC TC 4C 
IF (K.EC.O) CC TO 70 

C 444 CARTESIAN CCCRDINAT^S OF THE SUCTION SURFACE BLADE ELEMENT 

C PCINTS USED FLR INTERPOLATION. 

1C R2 * RCAIJL) ♦ I ZS ( JL * K ) - ZCDAIJL) )*TALP( JL ) 

ST 2 = THETAb<JL,K)*SRSITHETASI JL,K) ) 

X 2 = R2*SCPT(l.O - S T 2*4 2 ) 

IF (X2.0E.XC) GO TC 2C 
IF IJL.FC.2) GO TC 20 
JL = JL - \ 

GC TO i: 

2C R 3 = R C A { J L ♦ 1 ) ♦ ( ZS ( JL+ i » K ) - ZCC A I JL ♦ 1 ) ) *T AL P I JL+ l ) 

ST3 = THFTAS( JL+l,K) 4SRS(THETAS( JL + 1,K) ) 

X 3 - R3«SC y T { 1.0 - S T 1 ** 2 ) 

IF ( X3.LT.XC) GO TO 3C 

IF { JL.cC.NSTRM - 2) CC TO 32 

JL * JL ♦ l 

R 2 = P3 

ST? = ST 3 
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26 

27 

28 

29 

30 

31 

32 

33 

34 
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37 
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40 
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x 2 * x 3 ^5 

GC rc ?0 56 

3C HI - RCAIJL-1) ♦ (ZSIJL-l.K) - ZC04I JL-1 > )*i M PI JL-1 > 5 7 

STL - THETAS I JL-1, K> ♦SRSITHE IASIJl-1 ,K > ) eg 

11 - ZS(JL-l.K) 69 

12 - ZSUL.K) 60 

1 3 = ZSIJLU.KI 61 

HA = RCAIJL+2) + I ZS I JL ♦ 2, K ) - 2C0 A ( JL ♦ 2 ) ) * T AL P ( JL *2 ) 62 

ST4 = ThETaS I JL + 2,K)*SRS(THETAS(JL«-2,K) ) 63 

Z4 ^ ZSIJL+2.K) 64 

GC re 130 65 

4G IF (K.EQ.O) GC TC IOC 66 

C ««* CARTESIAN COORDINATES OF THE PRESSURE SURFACE BLAOE ELEMENT 67 

C ♦♦♦ POINTS USED FUR INTERPOLATION. 68 

R 2 = RCAIJL) ♦ IZPIJL.K) - ZCCAI JL ) )*TAL?l JL ) 69 

ST2 = THE TAP ( JL , K ) *SRS ( THET API JL , K ) ) 70 

X2 = R2*SCRT 11.0 - ST2**2> 71 

IF (X2.GE.XC) GO TC 5C 72 

IF IJL.E0.2) GC TC 50 73 

JL = JL - 1 74 

GC TC 4C 75 

50 R3 = RCAIJL+l) + I ZPI JL + 1,K ) - ZCCAI JL*i I)*TALPI JL*1 > 76 

ST3 = THETAPI JL*1,K) ASRSITHETAPI JL+l.K)) 77 

X3 = R3*SCRT(1.0 - ST3**2) 78 

IF ( X3.LT.XC> GC TO 60 79 

IF IJL.EQ.NSTRM - 2) CC TO 6 C 80 

JL = JL ♦ 1 81 

R2 = R3 82 

ST2 - ST3 83 

X2 = X3 84 

GC TC 50 85 

60 R 1 = RCA(JL-l) ♦ (ZPIJL-1.K) - ZCD A( JL- 1 >)*TALP I JL-1 ) 86 

ST 1 = THETAPI JL-1, K)*SRS(THETAP< JL-1, K) > 87 

Z1 = ZPI JL- 1 , K 1 88 

12 = ZPIJL.K) 89 

7. 3 - Z PI JL 1 ,K ) 90 

R4 = RCAIJL+2) ♦ I ZP I JL> 2 , K ) - ZCDA ( JL+2 ) > *T AL P I JL+2) 91 

ST4 = THETAPI JL*2,K) *SRSITHETAP< JL*2,K) > 92 

Z4 = ZPIJL+2.K) 93 

GC TC 130 94 

C CARTESIAN CCORO IN ATES OF THE SUCTION SURFACE BLADE ELEMENT 95 

C *** TRANSITION POINTS USEC FCR INTERPOLATION 96 

70 R2 = RCA(JL) ♦ IZTRSIJL) - 2CDA ( JL t ) *TALP< JL ) 97 

S T 2 = TTRSI JL)*SRSITTRSI JL) ) 98 

X2 = R2*SQRT 1 1 .0 - ST2**2) 99 

IF IX2.GE.XC) GC TC 8 C 100 

IF IJL.E0.2) GO TO 8 C 101 

J*- = JL - 1 102 

GC TC 70 103 

80 R3 = RCATJL+l) ♦ I ZT R S I JL+ 1 ) - ZCOAI JL* 1 ) )*TAL P I JL*l I 104 

ST3 = TTRSIJL+1) *SRS( TTRSIJL+1 ) ) 105 

X2 = R3*SCRT (1,0 - ST2**2) 106 

IF (X3.LT.XC) GO TO SC 107 

IF I JL.EO. NSTRM-2) GC TO 90 108 

JL = JL ♦ 1 109 

R2 = R3 HO 

ST2 = ST 3 in 

X2 = X 3 H 2 

GC TC RC 113 

90 R 1 = RCAIJL-l) + (ZTRSIJL-l) - ZCC A( JL- 1 ) ) *TAL P I JL- 1 ) 114 

ST1 = TTPSI JL-1 )*SRS( TTRSI JL-1 ) ) 115 
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c *** 
c **♦ 

ICC 


lie 


Z 1 = ZTRS(JL-l) 

72 = Z TRS ( JL * 

Z 3 = ZTRS(JL*1> 

RA - RCM JL ♦ 2 ) ♦ (ZTRS(Jl+2> - ZCDA ( JL + 2 > )*TALP(JL+2> 

S T 4 = TTRS(JL+2)*SRS( TTRS(JL+2) ) 

ZA = ZTR$(JL*2) 

CARTESIAN COORDINATES OF THE PRESSURE SURFACE BLADE ELEMENT 
TRANSITION POINTS USEC FCR INTERPOLATION 
R2 - RCAtJL) ♦ (ZTRPIJU - ZCDA ( JL )> *T ALP( JL ) 

ST2 = TTRPt JL)*SRS(TTRP( JL) ) 

X2 = R2*SCRT(l.O - ST2**2l 
IF IX2.GE.XC) GC TC 11C 
( JL.EQ.2 \ GO TO 11C 
- JL — i 
TC 100 

= RCA(JL*1) ♦ I ZTRP ( JL* 1 ) - ZCDA I JL*1 )> *T ALP ( JL*1 1 


IF 

JL 

GC 

R3 


STB = TTRP( JL*1)*SRS(TTRP( JL*l )) 


X3 

IF 

IF 

JL 

R2 


120 


I 30 


= R3*SCRT(1.0 - ST 3**2 ) 
t X3.LT #XC ) GC TO 120 
( JL.EQ.NSTRM-2 ) GC TO 120 
= JL ♦ 1 
= R3 
ST2 = ST3 
X2 = X3 
GC TO 110 

R1 = RCA(JL-l) * (ZTRP(JL-l) - ZCDA ( JL-1 )) *T ALP ( JL- 1 ) 
ST 1 = TTRP(JL-1)*SRS<TTRP< JL-il) 

Z1 = ZTRP(JL-l) 

Z2 = ZTRP ( JL ) 

ZTRPtJL+l) 

«CA(JL*2) * <ZTfiP(JL*2) - ZCDA ( JL*2 )) *T AL P (JL*2 ) 
TTRP< JL*2)*SRS(TTRP( JL*2) > 

ZTRP ( JL*2) 

• S T 1 ♦* 2 ) - X2 


Z 3 = 
RA - 
STA = 
ZA 


XI 

Y 1 

Y 2 

Y 3 
XA 
YA 
X 3 
X X 
T 1 
T 2 
CA 
C 3 
C2 
YC 
Tl 
T 2 
CA 
C 3 
C 2 
7 C - l 
RETLRN 
END 


- ST A**2 ) - X2 


R1*SCRT( 1.0 
R 1 *S T 1 
R2*ST 2 
R3*ST3 
RA*SCRT( 1.0 
RA*ST A 
X3 - X2 
XC - X 2 
( Y3 - Y2)/X3 

HYl - Y2)/Xl - T 1 ) / ( X 1 - X3) 

(T2 - (Tl - (Y4 - Y2)/XA)/(X3 - XA))/(X1 - X4) 
T2 - CA* ( X 1 ♦ X 3 ) 

Tl - (C3 * CA*X 3 ) *X 3 

Y2 ♦ XX* ( C 2 * XX * ( C 3 ♦ XX*CA ) ) 

t Z 3 - Z 2 ) / X 3 

< (71 - Z2I/X1 - Timxi - X3 ) 

(T2 - (Tl - (ZA - Z2)/XA)/(X3 - XA))/(Xi - XA) 
T 2 - C A * ( XI ♦ X 3 ) 

Tl - ( C 3 ♦ C A*X 3 ) *X 3 

22 ♦ XX* ( C2 * XX * t C 3 * XX*CA ) ) 


116 

117 

118 

119 

120 
121 
122 
123 
12A 

125 

126 

127 

128 

129 

130 

131 

132 

133 
13A 

135 

136 

137 

138 

139 
1A0 
141 
1A2 
143 
1AA 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 


r* 
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T 


ScBO CUT I NE SPLITG(X,Y,N,A,AX,AY,S1,S?) 

* ™I- RCtTINE INTEGRATES LINGER A CUBIC SPLINE FIT OF BLADE 

• SECTION SURFACE CCCRCINAIES. THF END POINT CURVATURFS AFT SET 

♦ ECUAL TC THc NEXT POINT CURVATURE AS DETERMINED FROM A CIRCULAR 

• ARC FIT OF THE 3 ENT POINTS. SLOPE BUT NOT CURVATURE ’S 

• CCNTINUCUS AT THE TRANSITION POINT. THE CURVE FIT IS USED TO r.F T 

* AREA, XBAR, AND YeAR. 

COMMON / RCU T / AC, CCSKI , COSKU, EMTM, IOUT, IT, NP, SINKL, SINKU, 

I C X ( 13), EM(1A), VBPUA), YBSU4), ZBFUA). ZBS(IA) 

DIMENSION HU4), XIN), YIN) 

CALL ARCS(XI1),XI2), XI3), YU), YI2), YI3), FI, DU 

CALL ARCS I X( N— 1 1 , a (N— 2 . , XI N- 3 ) , Y < N- 1 j , Y i N- 2 ) , Y < N- 3 ) , F 2 , Dl l 

* NP tran SITICN PCINT IN THE AC . AY OF SURFACE POINTS. 

NF * N - 3 

01 = 1.0 ♦ FLOAT! NF)*(X(N) - XllM/(X(N-lt - XID) 

IT = DI 

3 IF I X(N).GE.XIIT)) GC TC 20 
IT = IT - 1 
GC TC 10 

! IF I XINI.LE.XI IT+D) GC TO 30 
IT * IT ♦ 1 
GC TO 20 

! FX I = (XIN) - X|IT))/(X( I T ♦ 1 ) - XIITI) 

IF (FXI.LT.C.l) GC TC «0 
IF IFXI.GT.0.9) GC TC 50 
1 PLACE TRANSITION POINT IN THE ARRAY. 

XT = XIN) 

YT r YIN) 

N I * N — IT - 1 
KN = N ♦ 1 
DC AO I*l,NI 

II : NN - I 
XIII) = XIII-1) 

VIII) * Y(II-l) 

I I = N - NI 
XIII) = XT 

Yl I I ) = YT 
IT = IT ♦ 1 
GC TC 70 
IT = IT ♦ 1 
NP = N - 1 

1° L - E FCR SEC0ND PRIVATIVE VALUES AT THE SURFACE ARRAY POINTS. 
0X(1) X ( 2 ) * XII) 

OS = IYI2) - Y 1 1 ) I /DX 1 1 ) 

EP U ) * -FI 
H(l) = O.C 

IF I IT. EC. 2) GC TC 9C 
ITM = IT - 1 
DC 80 1=2 , I TP 
DSL = OS 

0X( I) = XI 1*1) -XII) 

OS = I Y| I ♦ 1 ) - YII))/CXI I) 

0 = 2.0*11.0 ♦ DXID/CXI I-l) ) - EMII-1) 

EPU ) = DX I 1 )/ IC*DXI I-l ) ) 

HII) = ( 6 . 0* ( CS - DSU/CXIl-1) - HI1-1H/0 
CP = IDS - DSL ) / I CXI I TP ) ♦ DXUTM-1)) 

NC = NP - 1 

CX(NC) = X ( N P ) - XI NO) 

CS2 * (Y(NP) - Y(NC) l/CXINC) 

E P ( N p ) = — F 2 




r 



\ 


H(NP) = 0.0 

IF (IT. EC. NO GC TC 110 
I TP = NC -• IT 
DC 100 l B = l » I TP 
I = NO - 18 

DSL2 = D?2 

OX ( I > = X(I«ll - X(I) 

DS2 = « Y ( 1 ♦ 1 » - Y * I ) l/CX ( I ) 

0 = 2.0* ( 1.0 ♦ CX< I)/DX( l4l ) ) - E M ( I ♦ 2 ) 

E P ( 1*1) - CX ( I ) / ( C*DX (I ♦ 1 ) i 
ICO H ( I * 1 > = ( 6 .0* ( CSL2 - CS2I/CXI I ♦ 1 ) - H<I+2))/U 
CP = ( DSL 2 - LS2 )/ ( DX ( I T + l ) ♦ DX(IT)) 

IF ( IT.LE.2) GC TC 11C 
IF (CM.EQ.0.0) GC TO 13C 

C = CP/CM*((1.0 ♦ ( ( CSL2*DX (IT) ♦ DS2*0X( IT«-1 ) )/(DX( IT) 4 
X CX ( IT + im**2»/( 1.0 ♦ ( (QS*0XIITM-1) ♦ DSL*DX ( ITM) )/(DX( I TM ) + 

X CX( ITM-l )) 1**2) 1**1. 5 
C = C/IABSIC ))**0.3 
GC TC 120 
110 C = 1.0 

120 EPTP = (6 .0* ( CS2 - DS»/CXCIT-il - HIIT-U - HUT+1)*DXUT)/ 

X CX( IT-11 1/(2. 0 - EfMIT-ll 4 (2.0 - EMI IT+1 1 )*DX ( I T 1 /0X( I T-l 1 *C 1 
EPTP = EPTP*C 
GC TC 150 
l 30 EPTP = 0.0 

EFTP * (6.GMCS2 - OSl/CXlIT-ll - HUT-ll - H( IT*11*0X(IT1/ 

X CXI IT-11 l/( (2.0 - EP(IT4111*0X(IT1/DX(IT-U1 
15C EPIIT1 = E**TP 

IF (IT.EQ.2) GC TC l 70 
ITP = IT - 2 
DC 160 IB = i.ITH 
I = IT - IP 

16C EPU) = H(I) - EP(I>*EP{ IHI 
170 EP( 1) * EPI2 >*Fl 
EP(IT) = EPTP 
IF (IT.EO.NO) GC TC 1<?C 
IB = IT ♦ 1 
CC 180 I=ie,NC 

18C EPU) = H(I) - EP( I)*EP( 1-11 
ISC EP(NP) = EP(NC)*F2 

51 =• < Y ( 2 1 - V ( 1 1 ) /DX ( 1 ) - DX( l)*(2.0*EH( 1 1 ♦ EH(2))/6.0 

52 = (Y(NP) - Y(NO) ) /CX( NO) ♦ DX ( NO »*( 2.0*EM ( NP > ♦ EMIN0M/6.0 
A = C.O 

AX = 0.0 
AY = 0.0 
DC 2 AO 1=1, NC 
EPL = EP( I ) 

IF ( IT. EC. I ♦ 1 > GO TO 22C 
EPU = EPfI+1) 

GC TC 230 
220 EPU = EPTP 

23C A = A 4 (YU) 4 Y( 14 1 ) - (EMC 4 EHL )*0X( I1**2/12.01*DXU 1/2.0 
OXS = DX C I ***2/60.0 

AX = AX 4 (Y( l4l)*(2.C*X( 141 ) ♦ X ( 1 1 ) 4 Y(I)*(X(I41) 4 2.0*X (11) - 

X CXS*(EPU*(8.G*X( 1*1 ) 4 7 « 3*X( II) 4 E Ml* ( 7 . 0*X (I 4 1 ) 4 8.0*X(I))))* 
X C x ( I )/6.C 

AY = AY 4 (Y(I4I)**2 4 Y(I)*(Y(l4l) 4 Y(I») - OXS* 1 ( 8.0* ( Y ( I 4l ) * 

X EPL ♦ YU l*EPL ) ♦ 7.C*( Y( I41)*EML 4 Y(I)*EMU)) - ( 1S.C*(EMU**2 4 
X EPL**2) ♦ 31. C*EPU*EPL )*DXS/7.0) )*DX(I 1/6.0 
24C CONTINUE 
RETLRN 
ENC 


62 

63 

64 

65 
6o 
6T 

66 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 
08 
99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 
123 


* 
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THIS HO, TINE MAKf A CIRCULAR ARC FIT OF 3 POINTS TO FIND 
SLCFFS AT THF POINTS. ThFSF AR t USED TO DETERMINE SPLINE END 
FC 1 NT FACrruS FOR THE SFCUNO DERIVATIVE TERMS WHICH KEEP THE 
CURVATURE CONSTANT FOR THE END POINTS. 


SUBROUTINE 
0X1 - t'i - 

0X2 = n - 

0 VI = V.' - 

0 V 2 - v ] - 

C x v l - f x i ♦ 

DXY2 = I <2* 

D x x x - , x 1 * 
Q Y V Y = r,Yl* 
YC1 = (LYYV 
X Y 3 - YU - 
YC? = (LYYY 
F = ((1 . 0 » 
RETURN 
ENC 


INE ARCS(Xl,< 2 .XT,Yl,Y?.YSF,Yni) 
> - x 1 

< - x 2 
- Y l 
T - Y 2 
f X 1 ♦ i. 

I X 2 * L Y 1 

I X 1 * L X 2 ♦ I X 3 - XI) 

0 Y 1 * L Y 2 * ( Y 3 - Y 1 > 


- OX Y1 ♦OX 1 
DXY 2 *CYl ) 

+ OX Y 1 *0 X l 
YL 1 **2 ) / I 1 . 


♦ DXY2MDXI ♦ X3 • 

♦ DXY2*DX2)/< DXXX 
0 ♦ YC2**2) 1**1. 5 


■ XIM/IOXXX ♦ OXYI*<OY1 
♦ DXY 1*0 Y2 ♦ 0XY2*DY1» 


THIS C. I IT If FTNTS t HE RLAOt SECTION ARE A ANO MOMENT 
1 A r 'TI T Iff r F * pla^F LOC,.- flPCLE. 

SUPP u:rif t f m XM,vn,S l,XL,VL,SL,A,AX, AV,R, XC.YCI 

/C( " T/ • r ~ i S*U CnSK'l, EMTM, MlJT, IT, N», S I NKL , SINKU, 

1 Yx ( 1 3 J , YPPIIAI, VPS(IA), XPPT14), XBSU41 


COSH = 1 . 0 /S'HTI 1.3 

six'!' = SU*fnsu 

f OSt = 1 . 0 /SQFTI 1.0 

S I ML = 5 L *<M'sl 
^ S = S INI j ♦ S INI 

sr = cosn ♦ cost 

xn = XL' - U 

nv = yu - vi 

TAJ r X = ( X 0 * S L ♦ ny* 

coso* ^ 1 .g/sqi* T ( i.o 


SU**2 i 

S L * * ? ) 


Y*SS) /{ x 1 ) * S S - D V ♦ SC ) 
.0 ♦ TANDK ** 2 ) 


s. ru 

[V 

= T t f ! V. 

♦COM- 

K 




p _ 

nv 

/ ( sc*<: 

1 

Sr^K - 

SS * S INOK 

» 

SIM 

KM 

= SIM' 

-r 

ro SOK 

4 * 

S I N^k* 

rosu 

S Tr 

K i 

= MM 

<- 


4 - 

sic 

! r ) K V 

r^si 

C ; ] S K M 

= C r 'Sii 

<*; 

( n <;n k 

- 

S T r-j 

M K 

SINU 

r ’skl 

= cost 

yS 

C n S m w 

- 

S !M 

|M 

SINL 

nvr 

= 

UM njk 

M 






v r 

= X 

i 1 > ry 

c 






YC 

- p 

♦ rnSKi 


♦ VI 





I r 

( T M 

« T.r^. 

L 

) r w T 

i |P- 

'1 



ASM 

*i - 

/*;• s m 

( 

S I l 

*c 

1 S«MI 


SI NKU’ 

I c 

(VII 

*t . . 0 . 

U 

) GO 

TO 

10 



\SM 

*4 - 

AC 1 'M 

- 

3. 1 '♦ 

l c 

l ? 7 




P **?*/- S : l M / 2 . 0 

r ♦ ( v rr r vr + vi ) - 

\r *\ ( _ I.. ** 4 * ( r , <; K ( | 

^ xi i ♦ x; )* v j j - (xi 


* 2,v>*X'l ♦ 

v ' ) » / 1 . J 

. v = ;» r * v r 

) - t xn ♦ 

• (- t i n- 


- mk - 

D * ( ) * ( vf ** 7 \ 


v<r^- v ) / j 

♦ r ' $ * L ) /i.O - ( OXC* ( ( 2.0 * XC ♦ 

♦ ♦ 2*;)*KL)*Yl ♦ (XL 


XU ) *v c ♦ 

♦ 2 *o*xei* 


♦ SI\I*L)M.J - { OxC* ( YC**? * Yu*( YU ♦ YCI 
V| *< vt ♦ Yf ) M f( S.J 
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SUiRCUTINT G ASMNT I GBA ,CBT ) 

rfllCl,lATlCN OF RCTCR GAS BENDING MOMENTS ABOUT HUB 


STACK 


CALCUl AT ION OF RCTCR GAS BEND INl> mintn i > 

real INC, R ACH 

C eETAS(U2n? R BMATL( 1), PLADESU1. CHOKEll), CHORD A ( II , CHQRDB ( l ) , 
CHCRDCU), CPCCI61, CEVI1,21), IDEVU), IGEOtl , I "C ; 

III ‘SSI 11 I^AX(l)t INC(l» 21 )t ISTN( 2 )t ITRANS(l)t NOP (l)t 
MCU nil, fHIll. 211 . PC. 2 , 211 , «< 2 . 2 l>. 

r. roc o] i SPl I 0 { 1 ) , TALF(l)t TAMAX( 1 )» T A T E ( 1 ) t TbLnCl)? 
Tbmax(I) TPTEIll* TCLEU 1 , TCMAX(l), TCTEIll, TDLE(l), fOMAXU), 
: I 5 TS , TC( 2 , 2 i» TRANSIl, 21 ». VT«( 2 . 2 l>. V 7 ! 2 , 2 l>, 


NXCUTtl), PHl(l, 2 i»* PC I 2 *2 1 
SLC PF I 2 * 2 1 ) , SOL 1 0 I 1 ) » TALE I 
TBMAXin. TBTE ( l ) » TCLEC 1 ), 

( D T F ( 1 ) , TILT(l), TC( 2 , 211 , 


8 Z(2»21), ZilHUBIll* ZETIPIlIt ZMAX(1»21) 

flS?. C“^ fl CPH2, CPH3, CPHA, CPH5, CPH6, CPP3, CPPA, CPP5 , CPP 6, 

, TPl fV LCP. OF* DHC* LHC I * OLOSC* G* GAMMA, GJ, GJ2* GR1* G 2, 

\ ro/ rul r«B H I ICCNV, ICOUNT, I ERROR* I IN, I PR , IROTOR, IR, 
1 ,J'u KE« li. j. j*. MCH, NAB, NBRONS, NNUB .NROTOR, NSTN.NS tRM , 
5 luS; iJSSU! ioiU. PU ROM. *5. RROIAN. ... RG. ROT , TL , THAI » Tu 
RHS = 2.0*RBHUB( IROW ) 

G81 - 0.0 

C,e2 = O.'* 

GBVX = 0.0 

HR V I ( VZU-l,ll**2*t 1.0 ♦ SLCPEU-1, 11**21 4 VTHII-l , 1) **2 1 /GJ2 

Tv, = I )( I- 1 . 1 1 
TL = TEPP ( HR 1 

PS’C - pc ( I- l * 1 1 /PR AT I 01 T0( I -1 » 1 1 1 

rvzpu -- Psic^vzu-i,n*Rii-itii/<RP*T«-* 

HP = (V7CI* 11**2*11.0 ♦ SLCPEI 1,1 1**2! ♦ VTHt l * 1 1**2 l /GJ2 
TC = TOt I *11 
TL = TFM° ( HR 1 

»S2U = PCI I , 1 1/PRATIC(T0( I » I > 1 


CPH 2 , CPH 3 * CPHA, CPH 5 , CPH 6 , CPP 3 , CPPA, CPP 5 , CPP 6 , 
CP* OF, DHC, LHC I , OLOSC, G» GAMMA, GJ, GJ 2 , GR 1 * G 2 , 
GR 5 . h! I, ICCNV, ICOUNT, I ERROR, UN, I PR . IROTOR, IR, 
* ii. J. J*. PACH. NAB, NBROWS, NHUB.NROTOR.NSTN.NSTRM, 

ll< lU r.J'nL . Si: Soil. PR. RAO I AN, RF, RG, ROT , TL .THAI . TU 


VTHCI, 11 ** 2 1 /GJ 2 


PT 1 = 

PT? = 

DC 10 
HR - 
X C J ? 

TC - TOII-1, J+ll 
TL - TEMP(FR) 

PS 1 L = PCI I-l,J*l!/PRATIC<TO(I-l.J*l!> 
p V Z R L = PSlL*VZU-l. J* 11 *R< I- 1 ,J*U/«R f *TL 1 
OPFi = (PSIU ♦ PS 1 L»*(R< 1 - 1 , Jl **2 - R( I- 1 ,J+U **21 
r,i>i ^ chi + OPFl*€Rt l-l.Jl 4 R< l-t.J+U * RHS> 

HR 1 - IVZI lij4ll**2*U.C ♦ ScCPEI l, J 4 1 1**2 1 4 VTH( I , JU 1**21 /GJI 

TL - T 01 l , J 4 1 1 

TL - T EMP ( PR 1 

PS2L = pr ( I , J+l 1 /PRAT IC (TOI I , JAll 1 

DPP? = (PS’U ♦ PS 2 L) *IR( I, Jl **2 - R( I, J* l 1**21 

082 = GK2 ♦ CPF2*IR(I,J) * « t 1 » J* 1 1 - RHS1 

= I(R(I- 1 ,J> 4 R(I- 1 ,J *11 4 Rtl.Jl 4 R t I , J* 1 1 1 / 2.0 - RHS!* 

X ( k v Z R U ♦ RVZRL 1 *IR( 1 - 1 * J! - R( l-l» J + l! > 

RRVX = GBVX ♦ (VZU, Jl ♦ V Z I I , J 4 l 1 ~ VZU-l.Jl - VZt ! " 1 ! * ) * \* 
r,evT = GBVT ♦ ( VTHI I , J 1 ♦ VTHIl.J+ll “ VTH(I- 1 ,J! - VTHtl-l.J 4 


PS 1 D 
PS 2 U 

JU .NTUBES 
(VZI l - 1 * J 4 1 1 **2 * I l < 


SLOPE! I- 1 ,J 4 1)**21 4 VTHt I-l , J 4 t 1 ** 2 1 / 


- RHS! 


VTHI I , J 4 l 1 ** 2 ! /GJ 2 


(VZU, Jl ♦ V7(I,J 4 ll * VZU-l.Jl * VZII-l,J 4 l)l*RHA 
( VTHI I , J 1 4 VTHI I * J 4 1 1 “ VTHII-l.Jl - VTHt l-l .J+l* 1* 


GPa'^ P IMGilVX/G V GB 1 - GB 2 ♦ (PT 1 4 P T 2 1 * I R I I - 1 , 1 > **? * RU.ll 

x **2 )* ( I -1 f i > ♦ Rdfll - RES )/(691?.0*BLADES( IROW) ) ) 

GRT = -CR V T * B l / ( 6912 • ’♦BL ACES ( I ROW ) ) 

P E T L P n) 

END 
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SLBHCUTINE MARGIN 

C ♦«* CALC* OF location anc VALUE of blaoe element minihum chcke margin 

REAL KIC, KIP, KIS, KM, KOC , KOP, KOS, KP, KS, KTC, KTP, KTS, KWC, 
X MACH 
CCMMCN 

1 BE T 41 ( 2 1 ) , BETA2I21), CCSAI21), COSLI21), 0KLE(l,21), DLI21), 

2 GAMMI21I, OBAR (21), RELMI 21 I, RPRK21), RE 1 ( 2 1 1 , RE2I21), 

3 RE 3 ( 21 ) ♦ R E4 ( 2 1 ) * RE5I21), RVTH(2l>, SINAI21), S I NL ( 21 ) , SLOSI21) 

4 » SCMC 1 21 ) * ThETAP (21,13), THE TAS < 2 1 , 1 3 > , TREL 1(21), TSTATI21), 

5 VM ( 21 ) , VTSCI21), X8AR(l,2l), YBAR(l,2l), ZPI21.13), ?S(2l,13) 
CCMMCN /ECUIV/ 

1 CHL' ( 2 1 ) t CHM21), CCSA2I21), FSMI21), KICI211, KOCI21), RCAI21), 

2 REC <2,21), RPTE (2,21), SINA2I21), SKICI21), SKOCI21), T ALP ( 21 ) * 

3 TC A ( 2 1 ) , TEC 12, 21), TGB I 2 1 ) ,TTRP < 2 l ) , TTRS < 21 ) , YCClC 1 25 ) , YLCTE < 25 ) 
A , ZCCLE ( 25 ) , ZCCTE (25 ) , ZCDA C 21 ) , ZEC<2,21), ZTRPI21), ZTRSI21) 

CCMMON /SCALAR/ 

1 BETA, CP, CPH2 , CPH3, CPH4, CPH5, CPH6, CPP3, CPP4, CPP5, C2P6, 

2 CPI, CV, CCP, DF, DHC, CHCI, OLOSC, G, GAMMA, GJ, GJ2, GR1, GR2, 

3 GR 3, GR4, GR5, H, I, ICCNV, I COUNT, IERROR, IIN, IPR, I ROTOR, IR, 
A IRCto, ITER, IN, J, JM, MACH, NAB, NBRONS, NHUB.NROTOR, NSTN.NSTRM, 
5 NT I P, NTUBES, CMEGA , PI, POA1, PR, RADIAN, RF, RG, ROT, TL , TOA1 , TU 

CCMMON /8LACES/ 

1 AMACH, ACC, AISOAS, A1SCA1, BINC, CALP, CCC . CEPE, CG8L , CHORD, 

2 CINC, CKTC, CRTS, Cl, C2, DKAPPA, ORCE, DRCGI , DRCMST, ORCMT, 

3 CRCOI, ORCT, DRCTI, CR1, CSME, OSMT, DSOI, DSOT, DSSE, DST, OSTI, 
A EMT, FI, F2 , GBL , ICL, IGC, IPASS, KIS, KM, KTC, KTS, P, PFLOS, 

5 RCG, RC*», «CMS, RCT , RD1, RECGI, REE, REMT , RET, R6TI, RMSJ, RTRC 
6,R1, R1C, «2, SALP, SEPE, SG AM, SGBL, SJ, SKTC, SKTS, SLJD, T, 

7 TEPE, TGBLL » THO, THE, THMAX , THTE , TKTN, TL S, MCI, YB1, YB2, ZM 
CCMMCN /MARG/ 

1 AL, AOAS, ACAl, CCHCRC, DAL, OAOAS, DPW, DPWL , ORCLEP, DRCM, 

2 CRCTPI, DRCTSI, CRCNT, CSA, uSP, DSPl, DSP2, DSS, OSSl, DSS2, DSN 
3,6B, EWC , F, HC, ICHCKE, KIP, KOP, KOS, KP, KS, KTP, KMC, PI2, RCI 
A,RCC, RCP, RCS, RCTP, RCTS, R6LEP, REOI , REP, RES, RETP, RETS, 

5 REMT, RTR, RTRD, RTRC, SECGRL, TCGI, TGBL, NC, ZMT 
32C IGC = 0 

C **• ESTIMATE DERIVATIVE OF AOAS MITH RESPECT TO F 

CKM = CCS! (KP ♦ KSJ/2.0) 

OACA1 = OS4*(HC->(KP ♦ EMC - KS) - WC*CCHORD*SL JD*CKM/RD1 )/MCl 
0»TR = RTRC*<R1C * DPCM4SALP )*CKM 

OAISAS = { GR2*RTR**GR1 - A ISC A S/2,0 )*DRTR/RTR - PFLOS/RTRQ 
OACfib = < A 1SCAS*0ACA 1 ♦ A0A1*DA1SAS )/AlSOAl 
IF (ICHCKE-2) 330,430,44'- 
33C FI = F 

DPW 1 = DPW 
GC IC 445 

C ♦♦♦ SETUP CF CALCULATION FOR TRAILING EDGE CHANNEL MIDTH 

3AC IF IKOS ♦ KCP) 3A5, A2C ,350 
3A5 KP = KOP 

CALL EPSLCMK0P + PI2, C . C , RCO , -THTE , ORCLEP ,RELEP ) 

RCP = RCC ♦ ORCLEP 

REP = RCP*Ert ♦ RELEP ♦ REOI*RCP/RCO 

ORCLEP = ORCLEP ♦ CRCC I 

DRCWT = ORCLEP - DRCTSI 

REWT = REP - RETS^RCP/RCTS 

DPW = OSP2 

CALL CHAN 

GC TC 320 

C **♦ CAL. CH T.E. CHANNEL MICTH WHEN BLADE EXIT ANGLE IS POSITIVE 

35C KS - KOS 
KP T KTP 
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CALL EPSLCMK0S+P12.C.C»RCC,THTE»DRCLEP»RELEP) 

RCS = RCG ♦ DRCLEP 

RES = RELEP ♦ REC I *RCS /RCU 

DRCWT - CRCCI ♦ CRCLEP - DRCTPI 

REWT = RES - RETP*RCS/RCTP - RCS*EB 

DRCWC = ORCWT 

REWC = REWT 

DSW = DSS2 

DPW = 0.0 

ICl = l 

RCP = RCTP 

36C CALL TANKAP(RCP*CRCWC»REWC»TK) 

WC = SORT (1*0 ♦ TK**2> 

IF ( A8S(TK).GT.100.0> GO TO 370 
WC * WC*ABS(ORCWC> 

GO TO 380 

370 WC * WC*ABS(REWC/TK) 

380 KWC = ATAN(-1.0/TK> 

IF (REWC. GT. 0.0) KWC * FI ♦ KWC 
DK = 2.0*KWC - KS - KP 
IF (ABSIOKI.LT. 0.0001) GC TO 410 
IF (ICL.GT.l) GO TC 4C0 
ICL = 2 

IF ( DK.GT.C .0 1 GO TO 390 
OKDS = (KTP - KIPJ/OSPl 
GC TO 400 

39C OKCS = (KGP - KTPI/0SP2 
4CC OPW = DK*WC/ (2.0 ♦ OKCS*WC) ♦ OPW 
DK = DKCS4CPW 

CALL EPSLCN(KTP,OK,RCTP,CPW,CRCP,REP) 

KP = KTP ♦ OK 

ORCWC = CRCWT - CRCP 

RCP = RCTP ♦ ORCP 

REWC = REWT - REP*RCS/RCP 

GC TO 360 

410 DRCP » CRCCI ♦ THLE - CRCWC/2.0 ♦DRCLEP 
EWC = - REWC/RCS 
GC TO 500 
42C DSW = DSS2 
OPW = 0SP2 
SKCP = KOP*SRS(KOP) 

DRCI* = CRCCI ♦ THLE ♦ TFLE*SKOP 
EWC = RCO ♦ THTE*SKOP 

WC = EWC*EB - 2.0*THTE*SCRT( 1.0 - SK0P*P2) 

EWC = WC/ EWC 
GC TC 509 

*** SEARCH FOR PINlPliH CHANNEL AREA TO CHOKE AREA 

43C F2 = F 

DPW2 = OPW 

IF (AOAS.GE.AL) GC TC 432 
ALCW = AO AS 
DPLCW - DPW 

IF ( DAOAS . L E .0 .0 ) GO TC 433 
GC TC 434 

432 ALCW = AL 

DP WL CW = CPWL 
IF (CAL.LT.C.w) GO TC 434 

433 IF (L.AL- CACAS.GE.-0.' , “01 ) GC TO 478 

434 Cl = OPWL - CPW 

DI - (DAL ♦ DAOAS - 2.C*(AL - AOAS ) /C I )/CI 4*2 
Cl = (PAPAS - DAL)/(2.>CI> ♦ 1 .5*01 * ( DPWL ♦ OPW) 
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81 - DAL' AS ♦ t 2 • 0 * C I - 3 .0*0 I *DPW ) *l)PW 

IF <r GC TO A->S 

8G C r **2 - 3 . G * C l * 8 I 
IF <RU.LT.’.:> GC TO 4 7* 

PC - SORT (",.)/< 3.C*l)l ) 

C C C I / ( 3 . G * c I ) 

DPWN = CQ ♦ PC 

IF (3.0*CI*UPwN - CI.CT...O) GO TO 438 
DPWN = CC - PC 
GC TC 438 

435 OPWN = ei/(2.0*Cl> 

4.38 IF ( ICHCKE. ct. 3) GC TC 444 

IF (DPWN. LF. CPWL. CR. CPWN .GE. CPW ) GO TO 478 

A = AL ♦ ( CPWN - DPWL)*(ei - Cl* : '#N ♦ OPWL I ♦ D I * < DP WN*( OPWN 

X CPWLI * CPWL**2)) 

IF ( A.GT.ACAS.OR.A.GT.AL > GO TO 4. 

IF (AOAS.LT.AL) GC TC 453 
GC TC 445 

44C IF ( ICHCKE. GT. 3) GO TC 442 

IF ( ABS(0ACAS).GT.0.CC1 ) GO TO 434 
ICHCKE = 4 

442 IF (ADAS. IT. ALOW ♦ O.CCOCl) GO TO 480 
OPWN = (OPW ♦ OPWLCW )/2 .0 
GC TC 445 

444 IF (DPWN.LE.CPWI) CPWN = ( CPW ♦ 0PWD/2.0 
IF ( DPWN.GF . DPW2 ) OPWN = I CPW ♦ 0PW21/2.0 
IF ( AOAS.GT.ALOW ) GO TC 445 

ALCW = ACAS 
OPWLCW = CPW 

445 AL = AOAS 
DAL = OAGAS 
DPWL = DPW 

45C IF ( ICHGKE.LT.3) ICHCKE = ICFOKE ♦ l 
IF ( ICHuKE .EC.?) GO TC 340 
OPW = OPWN 
IF (DPW) 455,470,460 
455 OKCS = (KTP - KIP)/0SP1 
GC TC 465 

46C OKCS = ( KC P - K TP ) /OSP 2 
465 DK = UPW*CKUS 
KP = KTP + UK 

CALL EPSLCN 'KTP,CK,RCTP,OPW,DRCP,REP) 

RCP = PCTP ♦ CRCP 

REP = «CP*EO + KF TP*RC P/RCTP ♦ REP 
DRCLtP = CRCTPI ♦ OR CP 
CKCWT = ORCLFP - CRCTSI 
GC TC 490 
470 KP = KTP 
RCP = RCTP 
RFJP - RCP*E8 ♦ RETP 
ORCWT = CRCTPI - CRCTSI 
GC TC 490 

47e IF ( AQAS. L T. AL ) GC TC 482 
ACAS = AL 
F = FI 

48C Ch k ( J) r ACAS - 1.0 

FSP(J) = (F - F 1 ) / ( F 2 - FI) 

RETURN 

490 R? W r - RFP - Rf TS*RCP/RCTS 
CALI CHAN 
GC TC 320 
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sec ice 

CALL 
GC I 
E\ r 


siprcutine crc«c 

- r,E \ p»ATIlN OF THE CLTPUT SL ADE SECTION PRO 

REAL INC, KlCt KIS, KN f KOC, KTLt * T c , , MACH 

CCMMCN /vfctcr/ 

1 BETAS(l.?n. PMTLI1I, rLADrs(l)» CHOKEIll, ^ 

2 CHCRUC(l)f CPCC( 6 '# rFV(l,21>? IGFV(l), iGEOli 

3 iLCSSdlf lMAX(i>, INCtlf^Df i S T N < 2 ) t IT^ANSI 
<1 NXCUT(l) » PFI(l»21)» PU ( 2 » 2 1 • t R(2,21>, RBHUtSt 

5 SLCPH<2,21), SCLIOIDt TALE(i)* T AM A X ( i It TATt 

6 THMAX(l), rOTEUIt TCLt(l), TCMAX(l), TCTF(l), 

7 TO T E ( 1 ) , T I L T ( 1 ) , T C ( 2 , 2 1 ) , TRANS(1,21), VTH(^ 
6 Z ( 2 , 2 1 ) » ZL'HLBCl), ZPTlP(i), ZMAX(l f 21) 


SECTION PROPERTIES ANU 

c , , MACH 


StL)» CHOKE ( l ) , CHORUM l >t CHORDB(l), 
> f I OF V ( 1), iGEOm* UNClll. 
f I SIN (2), I TRANSIT)* NCPTC1I * 

} f R ( 2 , 2 1 > » RBHUB ( 1 > f RBTIP(L), 
i), T AM A X ( 1 It T A T t ( 1 ) , TBLECUt 
TCNAX(l), TCTF.m» TDLEU). TUMAXCIK 
TRANS(1,21), VTHU,21), V/I2i21l» 


6 Z ( 2 , 2 1 ) » ZL'HLBCD* ZPTlP(i), ZMAX(l f 21) 

1 C B ^ T A CP^ C PH? t C PH 3 « C-H4, CPH5, CPH6, CPP3* CPP^t CPP '* CP ££* 

7 fP», r V , CCP» l F f OHC, LHCIt OLCSCt G, GAMMA, GJ» GJ2 1 GRit GR2» 

3 GkV, U, h. I t I C * N V ? I COUN T » IERRUR , in. IP*. 1WTOJ. JtR. 

A IRCWt IT^^f IWy Jt JM f MACH, NAB# 0 BROWS, N HU B , NR 0 TOR , NS TN , NS 
5 MIP t NTU-lS. C M E G A v Fit POA1, PR, RADIAN, RE/ KG, ROT , TL » TUA 

l PPTA1<?1), PfcTA?(?L), C*.SA(21)f C0SL(2l), DKLt(l,21), DL(21), 


OHCt LHCl, OLCSCt G f GAMMA, GJ, GJ2 t bKl f » 
!, I C< NV » ICUUNT, IERROR, l IN, (PR* IROTOR, 1R, 
„• J, Jf>, Vao, mar. MHROWS, NHUd.NRnTOR.NSTiM.NSrRW, 
CMEGA . PI. PO A1 . PR, WAOIAN, RF , P&» HOT , TL , TUA1 , TU 


ROT, TLtTUAl, TU 


1 BETAl(?l)t 0 fc T A 2 ( 2 L ) , O.SA<21), C0SL(2ll, u 

2 CA WM (21), L PAR (21), R r LM(21), RPR1121), RE1(21), RE 2(21), 
* jp ml i . u r u ( ? 1 I • R :"(?!.) * RVTH(21), S1NA(21), S l N L ( 2 1 ) 


SLOS ( 2 i ) 


X McA(?l), R: = f?l). RVTHC21)* S1NA(21), SINU21I, SLOSU*, 

4 SCMCCM), THE T AP ( 2 1 , l 3 i , T HE T AS ( 2 1 , 1 3 ) , TRELK21), TSTAT(21), 

r p v pt p v | / r G U I V / 

1 CHI (21), C^K(?1), CCSA2(2i), ESMf21), KIC(21), KOC(?l)» RCA(21)t 

2 R-c(?, ? n, mi <mn, c pma^( 21 ), ^ k i c < ^ i » , SKl]C(21) 

;,ZCCL.: !^,.Occir ( ,;., nu^?U, If ZTRP(2H, ?TRS( 21 1 

J C A v ‘fn/ Af aiSfftS, ' l S f 1 , RING, CALF, CCC, CEPE, CGOL , CHORO, 

2 C I » GUC, cM'jt Cl, C 2 , CKAPPA. DRCE, ORCGI , ORCMST, ORCMT, 

3 n^Ctl, S.HCI, r.RCTI, cm, espe, csmt, dsoi, osut, osse, dst, osti, 

4 EM, El* f^t GHL, ICC, IGC, Ir*ASS, KIS, KM, kTC, KTS, P, 

5 RC I. , HCP, HCMS, HPT, «C’., KECC1, PEE, PCMT, RtT , RFTI, PHSJ, RTRC 
a. pi 51C. ■>?, SALP, S r PE , SG«M, SC-BL , SJ, SKTC, SKTS, SLJD, T, 

’ . t u . TMMAX. THTE. TKTM. TtS, WC1, YB1, YR2 , iM 


1 CHLC21 ) 

2 R.C(?t? 

3 T C A ( 2 1 ) 


RCA( 21) , 


4 EM I 

5 RC 0 
6 , R 1 , 


1, OINC, CALF, CCC, CEPE, CGBL , CHORO, 
CKAPPA, DRCE, ORCGl , ORCMST, DRCMT , 
rsPE, r.sMT, dsoi, dsut, DSSE, DST, OSTI, 
C, IJ*ASS, Kis, KM, KTC » KTS, P, PFLOS, 


7 TtPE, Tf.l'LL , T HI , THU , 
CCPFCN /RCCl/ AC, CCSKL, 
1 l* (13), YRP(IA), 


CCPPCM /l ARC!/ T ITLE ( 1 c ) 

0 1 PE A S ICK CPS(IA), FPEtl 
^ SL l A T ) , wf HI ( l ) , XCUT ( / 

ECOl VALE^CF (JL.ICL) 

DAT" Fvr / <iF(5k,, 

l AH , A X , , AH 3 F -9 . , AHA , 
OAT" F PS / AH 1 ( A X , 

1 AH-AA,, AH 1 ex , A H T F r i , * 
DAT.' WPHD / AH / 

1 c r a v = * 

IS - 1 


GHL , I C L , IGC, IPASS, KIS, KM, 
s f RTT, »C'. , KKCC1, PEE, PCMT, 
SALP, S r PE » SGAM, SCBL, SJ, SK 
THE, THU, THMAX , THTE, TKTM, 
AC, CCSKL, COSKU, EMTM, iOUT, 
>, YUPI1A), YDS ( 1 A 1 , ZPP(IA), 


IT, NP, 
ZDSI 1A» 


SINKl, SINKU, 


>, F MS I 10 I , NSP I A ) , SHP * A3 * , SHSIA3), 
>, YCP(A3,A), YCSIA3.AJ, ZC(A3,A) 


AH 3F7., 
4 H , 4 X , , 
4 H? ( 4 X, 
4 H 4 


4 H 4 , 

4H3F9. , 
4 )^ 3 ( 4 X , 
/ 


4H , 4X , , 
4H4 , 

4H4 ( 4X , 


4H3E9., 

4H) 

4H 3 ( 9 X , 





264 


266 

268 


J L 

US - ( r ! R ( 1 ur.W ) - 2 H.|-U0< l ROW ) )/ < Rf'T I P( IROW ) - 

IF ( ARS ( r I 1. 1 ( I RcW ) ) . I F . l'_0.0 ( GO TO ?64 

TAM Till i I K C W ) ♦ S R S ( TILT l I ROW ) ) 

TAM = I ANT/St«T( 1.0 - TANT** 2 » 

IF ( I S TM I I.LI.O) TAM =■ -TAM 
GC TC 266 

HLfiT - T I L T < lROW»/lOC. r ' 

IF = HUbT 

TIPT = TAM ( TILTC IROW I - 1 00 .0 *FLU A T ( I H ) I/RADIAN) 
IF = I M - ( IH/ 100 I* 1 CC 
HLPT r TAMFLCAK IFJ/RACIANJ 
J = 1 
IP = 1 
KPIN = 

NRAX = 

WRITE 
WRITE 


u FMi:b ( I ROW ) ) 


42 

23 

( IW, 2CCC I 
( IW,2«.20) 


*** 

29C 

3CC 


C *** 


ITITLEIIJ), IJ = 
BLADES! I ROW) , 


1.18) 

Z6HU8 ( I ROW ) 


FOR REF. COORDINATES ON THF DESIRED BLADE SECTIONS. 


INTERPOLATION 
DC 300 KM, 13 

CALI I NTERPI XCUT (J),1,K,YBS<K),ZBS<K)) 

CALL I NTE R P ( XCUT I J ) , 2 .K.YBP (K ) , ZBP ( K ) ) 

CALL I NT"PP( XCUT <J),1,C,YB$(14),ZBS<14)> 

CALL I NTFRP( XCUT ( J ) , 2 .C.Y0P ( 14),ZBP<14) ) 

CALCULATirr, CF THE BLALE SECTION CHORD ANGLE 

CALL ARCS(/tiS(l),ZeS(2),ZBS(3),Y0S(l).YftSI2),YBS(3),SPl,SSl) 

CALL ARCS < ZbP( 1 > , ZBP < 2 ) , ZBP ( 3 > , Yt)P( l ) 

I r c I - l 

CALL 1 !)C C 3 ( ZRS < L ) , YHS ( 1 > ,SS1 ,ZBP( l I.YbPI 1 ) , SP 1 , A , AX , A Y ,RL £ , 

X ZCCLL ( J) , YCCLE ( J ) ) 

CALL ARCS (/RS(l3),ZBS!12),ZBS(ll),YbS(13>,YBS(i2l,YbS(ll),SPl*SSl» 
CALI ARCS(ZtiP(13),Z8P(12),ZBP(ll),YbP(13),YBP(i2) 

% 


,YBP(2),YBP(3)» TANB. SPl ) 


i YBP ( 1 1 ) , T ANB . 


YCCLF ( J) 
ZCCLF ( J ) 


* * * 


3CA 


\j \ 

CALL t nr:PS(Z”S(H),Y..Ml • > , S S 1 , Z R M 1 3 > , YRP < 1 3 > , SP 1 , A , A X , A Y , R T E , 

> Z C C T C ( J) yYlCTH J ) ) 

0 Y Y C L T ( J ) - 

01 ^ ZClT-(J> - 

()P = PL r - pJt 

CHC.ii; = sgrt(Cy**2 ♦ i:?**? - cr**2) 

TAN- = O.Y*OLR|; 4 !>R*C/_ )/<07*CH0RD - OR*DY) 

T RAVAATt; I HC HlaLE SECTION COORDINATES TO THF STACKING POINT 
ORI HN AND ’UJTArr TO l IE ALONG THE BLAOF SECTION CHORD 
CCS* 1 = l.'/*CKT(1.0 ♦ T A N B * * 2 ) 

SIN’ = TANP»CtSli 
07 t xcct ( n - ftp>crt( i « o * j 
IF C AbSCTIIM IRC* U .GF . 1 '0, 

DTH =■ 0/*TA,>|T 

gc ir 

RCC r .= XCUT(J) 
t ) T H L = 

,,T ( ' f ' Cn ~ Hr a J ) / f R •* T I P { 1 R fJW ) - RRHUBI IROWI )*(TIPT -HUB T ) 


r J) GO TO 404 
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DTH = GT + (HUPT - R0KjH<lROV.>/(RBTlP( IROW) - MBHUB ( l HOW > > * ( T l PT - 
1 FUST) UAtTGIRCuG/RBI-lrM IRfW ) ) 

IF ( ABS ( 0 T F - DTHLI.UT . I .OE - 7 ) GO TO 306 

RCCG = RCCG + IXCUT( Jl/CCSIDTH) - RCC&I/U.O - DTH* ( G T ♦ HUBT)) 
DTFl = DTP 
GC T C 305 

3C6 DTh = XCt T < J )*TAN< CTh > 

IF ( ISTM I I.LT.O) CTH = -OTH 
3C8 DZ = TLS*C7 

DY = 0TH*CC3« ♦ OZ*SIM 
OZ = DZ*CCS8 - DTH*SIAP 
OC 310 K=l,l* 

YB T = YBSI*<) 

YBS(K) = Y B j ( K ) *CQSB - ZeS(KI*SINB ♦ OY 
310 ZBS(K) = ZBS(K)*CCS8 ♦ YRT*$IN0 - OZ 
ZS2 = ZBSI13J 
YS2 = YBS (13) 

CALL SPLITCl ZBS.YBS, 1* , AS, AXS , AYS, SSl,SS2> 

NPS = NP 
ITS = IT 
EPTS = EPTP 
DC 320 K-l ,NP 
320 EPS I X I = EPIK) 

CALL IMCMI ZBS, YBS, NP, AXXS, AXYS.AVYS, AXXXXS, AXXYYS, AYYYYS) 

DC 360 K=l,l* 

YBT = YBP I K > 

YBPCtO = YRP(K)*CCSB - Z PP ( K ) *S IH8 ♦ OY 
360 ZB P ( K ) = Z PP C K ) *CGSB ♦ YBT *S INB - DZ 
ZP2 = ZBPdil 
YP2 = YBP < 1 3 I 

CALL SPLITf,(ZBP»YBP, 1* , AP, AXP, AYP, SP1 ,SP2 ) 

CALL IMOMI ZtSP, YBP.NP »AXX, AXY, AYY, AXXXX, AXXYY, AYYYY ) 

370 AXXS = AX XS - AXX 
AX YS = AX YS - AXY 
AYYS = A Y YS - AYY 
A X X X XS = AXXXXS - AXXXX 
AXXYYS = AXXYYS - AXXYY 
AYYYYS = AYYYYS - AYYYY 
ICLT = 0 

CALL EOGES(ZS2,Y$2,SS2,ZP2,YP2,SP2.AT,AXT,AYT,RTE,ZCTE,YCTEI 
CALL ENCS(7S2,YS2,ZP2»YP?»ZCTE,YCTE»RTE»AC,AXXT,AXYT»AYYT .AXXXXT * 
X AXXYYT.AYYYYT) 

GALL EDGES ( ZBS ( 1 ) , YBS < 1 ) ,SSi ,ZBPI1) ,YBP( l > , SP1 , A, AX, AY, RLE, ZCLE, 
x ycle) 

CALL ENDS! ZOS(l) » YBS (U,ZBP( 1 1 , YBP (1) , ZCLE. YCLE, RLE* AC. AXX, AXY, 

X AYY, AXXXX, AXXYY, AYYYY) 

A = A ♦ AS - AP - AT 

AX = AX * AXS - AXP - AXT 

AY - AY ♦ AYS - AYP - AYT 

AXX = AXX + AXXS - A X XT 

AXY = AXY ♦ A X YS - A X YT 

AYY - AYY ♦ AYYS - AYYT 

AXXXX = AXXXX ♦ AXXXXS - AXXXXT 

AXXYY = AXXYY ♦ AXXYYS - AXXYYT 

AYYYY - AYYYY ♦ AYYYYS - AYYYYT 

X« - AX/A 

YP : AV/A 

A I P = AXX ♦ AYY 

BET 1 ' - R AC I An* ARSIM S INB ) 

TAMM r 2.j*AXY/(AXX - AYY) 

TAG 4 1 - TA\Thi/( 1.0 ♦ SCRTI1.0 ♦ TANT8l**2)) 


112 
113 
ll* 
US 
1 16 
l 1 7 
113 
117 
120 
121 
12 ? 
123 
12 * 

125 

126 

127 

128 

129 

130 

131 

132 

133 
13 * 

135 

136 

137 

138 

139 
1*0 
1*1 
1*2 
1*3 
1 ** 
1*5 
1*6 
1*7 
1*8 
1*9 

150 

151 

152 

153 
15 * 

155 

156 

157 

158 

159 

160 
161 
162 
163 
16 * 

165 

166 

167 

168 

169 

170 

171 

172 


« 


| 
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BETM = 94CI 4N*A TAN< TANB I ) ♦ BtTA 
CCS-?! = 1. .'/SGKT(1.0 ♦ T4N«I**2) 

SIN!! = r 4M-J I *CGSB I 

4I«!N = AYY*CCSBI**2 ♦ S I N B I * ( 4 X X * S I N b ! 
4I«4X = 4 I P - A I M N 


i 0 * A X Y *C 0 SB I ) 


C4U. TORSNU rS,NPS f 6"S,E*'TS,>»LE,SSl,SPl ? SS2,SP2,L,TCRS> 


TCWj - TORS/ (J.O ♦ x, . ?♦ TCR )/ ( 4 ♦(_!**? ) ) 
TWIST - 4 X X < X * AXXYY ♦ AYYYY - AIP4*2/A 


YCC = 

r a- 

- Y CL L 

l C z = 

- 

- ^ CL E 

V S f = 

YCG 

* !J Y 

ZST = 

ZCG 

- C l 

WM I f: 

< T W, 

?CMO> 


c ♦ ** 
c • ** 


zsT - ysi - 6et *- »«■ «. 

•’ -NC M ^c[«-0«HI"i™ U r CR6 " ENr r,,#E BEI “ EE, ‘ “ 

CHORD = RTE ♦ ZCTE - ZCLt ♦ RLE 
01 = CHCRC/20.0 
OIL = AL0G10IDI ) 

I C I L = OIL 

IF (01. LT. 1.01 IDIL * ICIL - 1 
RL = OIL - FLC AT( ICIL) 

IF (RL.GE. 0.30103) GC TO 430 
D I = 1.0 
GC TC 455 

3 IF (RL.GE. 0.39794) GC TO 440 

01 = 2.0 
GC TC 455 

! IF (RL.GE. 0.69897) GC TO 450 
01 * 2.5 
GC TC 455 
) 01 = 5.0 

i 01 = 01*10. 0**IDIL 
PN - CHORC/U I - 0 .0000 1 
NPT = PN 
NPT = NPT + 4 

INTERPOLAmN FOR BLACE SECTION SURF. COORD. AT THE DESIRED LOCS. 

utl i f l r ) — 0*0 

YCSI l, IP) = RLE 

YCP( 1, IP) = RLE 

ZCTE = ZCTE ♦ ZCG 

ZLE = RLE - ZCLE ♦ ZBS(l) 

ZTE = ZCG + ZS2 
DC 460 K = 1 , 14 
ZBS(K) = ZRS(K) ♦ ZCG 
ZBP(K) = ZHP(K) ♦ ZCG 
K = 2 
KS - 2 
IE = 0 

IF (RLE.GE.ZC(K-1, IP) ♦ LI) CO TO 470 
ZC(K,IP) = klE 
IE = 1 
KLE = K 
GC TC 480 

zc ( k .ip) = zc(x-i,ip) 4 ri 

IF ( ZC (K. I P ) .GT. ZLE ) CC TO 490 

CC^c’sx’ 1 HLt + 50RT ( ( 2.C*RLE - ZC(K, IP) )* ZC (K, • .» 

IF (ZC(K, IP).LT.ZTE) CC TO 5 CO 

rV'lr'lV, " rCK * YCf + SCRT( RTE**2 - (ZC(K.IP) - ZCTE)**2) 

\j L If i " 


LI ) CO TO 470 


l 


178 



5CC IF I ZC(K,IF).LE.ZBSIKS)( GO TO 305 23* 

KS = KS ♦ 1 235 

GC TO 5C0 236 

5C5 6 HU = EMIKSi 237 

IF (KS.EC.ITSi EMU = EMTS 238 

D Z - ZBSIKS) - ZBSIKS-1) 239 

OZM = ZCI K , l P ) - ZBSIKS-1) 2*0 

ZR = DZM/CZ 2^1 

IF ( ZR.GT. C.C001) GO TC '10 2^2 

VCS(K,IP> = YCG ♦ YBSIKS-1) ♦ ZR*IYBS(KS) - YBS(KS-1II -OZM*OZ* 2*3 

X (2.0*EMSIKS-1> ♦ EMtl/6.0 2** 

GC TC 530 2*5 

510 DZP = ZBS ( KS I - ZCIK, IP) 2*6 

ZR = DZP/CZ 2*7 

IF ( ZR.GT .C.0001 ) GO TC 520 2*8 

YCS I K» IP) = YCG ♦ YBS(KS) - ZR*IYBSIKS) - YBS<K$-1>> ♦ DZM*0/*( 2*9 

X 2.C*EMU ♦ EMSIKS-1) )/6.C 250 

GC TO 530 251 

520 YCS( K, IP) = YCG ♦ OZP*<YBS(KS)/OZ ♦ EKU* ( 0Z***2/0Z - OZi/6.0) 252 

X * CZP*IYBSIKS-l)/OZ ♦ EPS IKS- 1 )*IDZP**2/DZ - DZ)/6.0> 253 

53C K * K ♦ I 254 

IF « IE-1 J 465,540,550 255 

540 IE = 2 256 

545 ZCIK, IP) = ZCIK-2, IP I ♦ Cl 257 

GC TO *80 258 

550 IF IZCTE.GE.ZCIK-l.IP) *01} GO TC 470 259 

IF ( K.EC.NPT i GG TO 570 260 

IF UE.GE.3) GO TC 56C 261 

ZCIK, IP) = ZCTE 262 

IE = 3 263 

KTE = K 264 

GC TC *90 265 

56C IF IIE.NE.3) GC TC 470 266 

IE = 4 267 

GC TC 5*5 268 

570 K = 2 269 

KS = 2 270 

ZTE = ZCG ♦ ZP2 271 

58C IF ( ZC(K, I P i.GT.ZBPI 1 !> GO TC 590 272 

YCP ( K » I P ) = RLE - SORT ( ( ?.0*RLE - ZCIK, IP))*ZCIK, IP» I 273 

GC TO 630 274 

59C IF (ZC(K, IPi.LT.ZTE) GC TO 6C0 275 

YCP(K»IP) = YCTE ♦ YCG - S0RT(RTE**2 - (ZCIK, IP) - ZCTEI**2) 276 

GC TC 630 277 

6CC IF (ZC»K,IP).LE.ZBP(KSI) GO TO 605 278 

KS = KS ♦ 1 279 

GC TC 600 280 

6C5 EMU = EMI KS ) 281 

IF IKS.EQ.ll) EMU = EM TM 282 

DZ = ZePIKS) - ZBPIKS-l) 283 

OZM = ZCIK, IP) - ZBP(KS-i) 284 

ZR = OZM/ CZ 285 

IF ( ZR.GT .0 .COO I ) GO TC 610 286 

YC P ( K » I P I = YCG ♦ Y8P ( KS-l ) ♦ ZR*IYBPIKS> - YBPIKS-l)) - OZH*OZ* 287 

X (2.0*EM(KS-l» ♦ EMUI/t.C 288 

GC TC 630 289 

tlC DZP = ZH° I K S ) - ZCIK, IP) 290 

ZR = OZP/CZ 291 

IF ( ZR.GT .COOi ) GO TC t2C 292 

YCP(K.IP) - YU. ♦ YBP(KS) - ZR* I YBPI KS ) - Y8PIKS-1)) ♦ OZM*DZ* 293 

X (2.0*EM0 ♦ FM(KS-l) 1/6.' 294 



6 3 C 


6*0 


GC TC 630 

620 VCP(K.IP) * YCG ♦ CZPM YEP<KS)/DZ ♦ EMU*(0ZM**2/DZ - 02J/6.0) 

* c/PMvppjKs-n/Lz ♦ e m ( ks-1 )*<ozp**?/dz - oz ) / 6 . o ) u/,/6 * 0 ’ 

f (k.ec.n 0 !-! > cc tc 6*. 

K - K + 1 

GC IC 580 

ZC(NPT,!P> ^ CHORE 
YCSINPT.IPt = ycrt «■ YCG 
YC p ( NP T , TP) = YCS(NPT,IP) 

IF < NOPT( I W Chi ).LT. 10 ) rr TO 6*8 
NPS - NPT - ? 

DC s *2 K=l,N p S 
KS - K*1 

IF (K.LT.KLE) KS 1 K 
IF (K.GE.KTt-l) KS = k + 2 
SL(K> = ZC(KS.IP) 

SHP(K) = YCP(KS,IP) 

6*2 SHS(K) = YC$(KS,IP> 

IF (NGPTURCM .LT.20 > CC TO 6*6 
PUNCH 19CC, XCUT(J), (TITLE! IJ>, IJ=1,*) 

PUNCH 191C. NPS, BETA, ZST, VST, RLE, RLE, RTE, ZCTE 
PUNCH 1920, (SL(K I,SHF(K >,SHS(K),K = 1,NPS) 

IF (NOPTUPCM.LT, 30) GO TO 6*8 
6*6 CONTINUE 

6*8 IF (NPT.GT.NPAX) NMAX = KPT 
IF (NPT.LT.iyMIN) NNIN = NPT 
NSP ( I P > = NPT 
IF (IP.NE.*| GC TC 79C 
JS = J ♦ l - IP 
JF = J 

WRITE (IW, ?^70» (J,J=JS,JF) 

65C DC 660 K=1,npin 

660 IpJ 1 - 5 IW,Ff ' C> (ZC(K»IJ), YCP(K,IJ», YCS(K,IJ),IJ=l t l«»| 

IF (NMAX.NE.NHIN) GO TC 665 
IF ( IP.NE .* ) GC TC 775 
GC TC 780 

665 (SPIN = ♦ i 

DC 770 K=N«IN,NPAX 
GC TC ( 760, 72U, 680,670 ), IP 
IF ( KS'M* ) .ofc.KI GC TC 6*0 
I P - 3 

FPC( 11 » = FpS ( 5 ) 

FPC( 121 = f p S ( 6 ) 

6EC IF (NSP(T).GE.K) GC TC 720 
IF ( IP. EG. 3) GO TC 70 : 

IF < IPI.LT.3I GC TC 710 
I PI - * 

69C FPCIEI - FPS(5> 

FPC ( 9 ) = F V S ( 6 ) 

GC TC 720 


67C 


7CC IP = 2 

GC TC 690 

710 FPD< 8) = j) 

FPI)(9> = Fms( B) 

ZC (k,3) = NCRC( I> 

YCP(K, 3 ) = w C R C ( 1 1 
CCS < K, 3) = WCKC ( l » 

720 IF (NSP(?).GE.K.0R.IPI.GT.2) GO TO 760 
I F ( IP. 0.?( GC TC 7*‘ 

I F (IPI.FO.t) GC TO 7 5 C 
I P I = 3 


♦ 


295 

296 
2° 7 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 \ 

353 

354 

355 

356 
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T3C F PC ( 5 ) = FPS(5) 

F PC ( 6 ) = FPSI6) 

GC TO 760 
740 IP = 1 

GC TC 730 

750 F PC ( 5 ) = F PS 1 7 ) 

F PO ( 6 ) = FPb(8) 

Z C ( K v 2 ) * WORC(l) 

vcp(K f 2 > = wcRom 

YCS(K,2) = WCRC<1> 

760 IF (NSP(l).GE.K.OR.IPI.GT.l) GO TO 7?0 
IPI = 2 

FPD ( 2 ) = F PS ( 5 ) 

FPC ( 3 ) = FP$(6) 

770 WRITE ( I W f FPD ) I Id K f I J ) * YCP < K f l J ) ♦ YCS ( K , 1 J ) 9 l J= I P I , I P ) 

FPOm = FPS ( 9 ) 

FPD ( 3 ) = FPSIIO) 

775 FPO C 5 1 = FPS C 9 I 
FPD 16) = FPS i 10 ) 

FPD C 8 I = FPS 1 9 I 
FPC <91 = FPS < 10 I 
FPO(ll) - FPS < 9 1 
FPC 1121 - FPSI10I 
780 IF ( J« EC. NC ) GO TC 34C 
J * J ♦ 1 
GC TO 268 

790 IF (J. EC. NCI GO TC 8CC 
J = J ♦ 1 
IP = IP ♦ l 
GC TC 290 

8CC FPD (II) = FPS 15) 

FPD < 12 ) * FP S ( 6 ) 

JS = J ♦ I - IP 
JF = J 

IF < IP.LT.3) GC TC 810 
WRITE (IW,2C60) UjJ^JSrJF) 

GC TC 650 

810 FPC ( 8 ) = F PS ( 5 ) 

FPC ( 9 ) = FPSI6) 

IF < IP. IT .2) GO TC 82C 
WRITE < 1 W 9 2G5C ) JS,JF 
GC TC 65^ 

82C FPD ( 5 ) = F PS ( 5 ) 

FPC ( 6 ) = F PS ( 6 ) 

WRITE ( I W 9 2040 ) J 
GC TC 650 

84C CALL 9CC0RCUS,NC,XCUT9YCCLE f ZCCLE, YCCTE.ZCCTEI 
85C RETLRN 
10CC FCRPAT (8F10.4) 

19CC FCRPAT (3X,3HX = , F 10 . 4 f 2 X # 4 A6 ) 

19 1C FCRPAT ( I5,5X,7F10.5) 

192C FCRPAT (9FR.4) 

20CC FCRPAT ( 1 H 1 / 27X f 32H** BLADE SECTION PROPERTIES OF t 18A4 ) 

2C2C FCRPAT ( / 20X f 18FNUPEER OF BLADES * * F6 . 1 1 10X f 47HAX I At LOCATION OF 

1 STACKING LINE IN COPPRESSCR =9F7.3 f 4H IN.// 4X f 13HBLADE SECTION 9 

2 5 X , 14HS TACKING POINT95X,7FSECTION95X f 13HBLADE SECTION 94 X 9 

3 7HSECTICN f 3X, 18HP0MENTS OF l NEKT I A , 4X ? 4H I MA X , 4X 9 7HSEC T I ON , OX » 

4 7FSECTICN / 1 3X , 4HR A C . 9 7 X f 1 lhCCORD I NAT E S 9 6X f 7HSE T T I NG , 3X 9 

5 16FC.G. CCLRUlNATtSt4X, 4HAREA t 8X, 12HTHR0UGH C .0 • 9 6 X 9 7HS E T T I NG 9 2 X 9 

6 7FTCRSICN94X f 5HTWlST / f X f 3 FNC . , 5 X 9 4HL GC . , 6 X , IHL , 9 X t 1HH , 8 X , 

7 5H ANGLE 9 6 X 9 IHL*9X f IFF , 1 7X , 4F I P I N , 6X 9 4H I M AX , 7X f 5HANGL E 9 3 X , 


}S7 
3 5 H 
i59 

<61 
362 
36 3 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 
38 2 

38 3 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

39 5 
396 
39 7 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 
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4 


n o 




ijn, c*;‘, r 


2 C 3 C FfJx.'J <*x. 

I fll.SFK, 
20 AC FCR-AT (/ 

L lMl, 5 X,?H- 
2050 F C B * A T (/ -> 
1 U'L ,'JX,?1-F- 

2C6C FORMAT </ 


, i x,‘ 4 Nsr :f. * . 

S‘j 

/ 

■* , :■ hi w. 

) , AX f 

X , SH( IN. ) , ~ x , 

H 

f I \ ! 

. ?/ f i s 


1 , 3 X , M<( [ N . I * 


. " * T - 

• ■ ■ * ft X 

i 

* . t l j • i c 1 ; j 

t ) 

• 

1 ’ ‘ 

* l , , 

1 f - 1 ^ • 

7 x , 1 1 h s r r; 

T I I 

r n n i : 

. . M, i f 

i: !>:;*> 

I't/Xf 2 HHS ♦ " * 

/ 

^ X 


In.) 

* f 2 ( 6 X „ 1 1 P St l 

T l : 

"n \r 

• * I • t l 2 ' * 

r .jny 

P» 7 X, 2 M-S, it ) 

/ 

X < 4 X 

. M «*x , s,- 

5 N . » 


X » 3 ( 5 X, 1 lhS r C fl ON NO., I 3 , 12 h 


l 1 HL , a X 7 X, 2 HHS , 7 X ) 


MAX, M AX , 5 H( . .. ) ) ) 


t * * 2 » 1 A » 2 ( 2 X , flu ( [N. ) #*A ) , 

) 

1 ~ . • , t ; : . n , f y . -> , f i o . i . 

• p ■ i - a r . o / i ~ x , 

N . ) ) ) 

■3 n R A I ( S ) / NX, -MAX, 

N . t ) ) ) 

O'JR f; I N A T fc S ) / 6 X , 3 ( A X , 


207 C F r R * A T (/ ? X , ** ( 5 X , 1 1 r ' Tiff; NC., 13 , 12 m C( 


1 1 F*L. 8 X, 2 F-M>, 7 X, 2 FFS, /Xj 
END 


A ( AX , 3 ( AX , 5 H ( IN. 


AX,A( AX , 


SUBROUTINE XCUTS INC, XCUT > 

*** ROUTINE SETS TFE RADIAL LOCATION OF THE ri ADC c tn-s 

** re^ N ?nc? 2 L ac A f E SPAN IN * 0w<0 DECIMAL incr ehen- 

CCRRCN /VECTOR/ 

1 fr^lf ir * : l cEv?i :?!?: * * • 

a TQir fc ! 2 ’ 2l> ’ S0LI0<1, » TALEm, T AMAX ( l > , TATE(l), TBLE ( i I * 

7 m?? P 1 ’ TBTEd), TCLE(l), TCMAX(l), TCTE(l), TDLE (IT, TDMAXdl 

7 TDTEm, riLTIU, T0<2,21>, TRANS(l,2l), VTH 2,21), VZ 2 2 ’ 

8 2 ( 2 , 21 ), 2 BHU 8 C 1 ), ZeTIPtl), ZMAXd^I) ’ U ’ VZT2,21», 

CCPRCN /SCALAR/ 

7 r7y a '^ CP * GPH2f CPH3, CPH4, CPH5 , CPH6, CPP3, CPPA, CPP5. CPPN 

2 CPI, CV, CCP, DF, DHC , CHCI, OLOSC, G, GARRA, GJ, GJ2. CRI M2 

A ?R ; u ’dP3 GR f’ H ’ 1 ’ ICCNV » ICOUNT, I ERROR , I IN, IPR, IRQTOR, IR, 

5 NTIR* NTi'pec ^ cPFrA^Pi^nl.^o’ NBK0WS » NHUB,NROTOR,NSTN,NSTRM, 
CCRRCN tj> CMEGA ’ PI * P0Al » PR, RADIAN, RF, RG, ROT, TL , TOA1 , TU 

1 8 6 T A 1 ( 2 1 ) , BET A2 ( 21 ) , CCSA(2U, COSU21), DKLEC1,21». DLI21I 

2 GAppj.mi, OR AR ( 2 1 ) , R E L A' ! 2 1 ) , RPR 1 ( 2 1 ) , RE U d! , RE2 21^ 

3 R E 3 ( 2 1 ) , Rt A ( 2 1 ) , RE5(2l), RVTH(21», S I NA ( 2 I ) , SINL(2I» *SLOSI?ll 

A, SCM C ( 2 1 ), THE TAP(2 1,13), TPETASI21 13 , “mtSi? 

1 C P C < 2 l > * CH K ( 2 i ) » CCS 42 (21)* FSMC 2 1 ) * KICC21). KGC(21I. RCA(?ik 

3 TCAr^n^Tpri? 6 ?!* 21 ,’ SINA2<21, » SK IC( 21 1 » SK0C(2l>, TALP(2Il!* 

3 T C A ( 2 1 ) , TfcC ( 2 , 2 1 ) , TG8 ( 2 1 ) , T TRP( 21 ) , TTRSC2I ) , YCCLE (25 1 vrrTFi5«» 

slSSliiS’Jcif?;;:”'' 2C0 “ n ’' «=.}.«, 

IF < NC.CT.O ) GO TC 60 

X X 5.3 ?0 *" ,MU0 " EXP (-C.5*(RPTIP( IROW) - RBHU8 ( I ROW ) ) /CHO( JM ) J ) ♦ 



= XN 



3* 

I f 

(NC.LT.5) NC = 

5 


35 

I F 

(NC.GT.2A) NC 

= 2 4 


36 

N I 

= NC - 1 


37 

I F 

(R(I«l).OE.R(l 

-mu 

CD rc 70 

38 

XF] 

■M- = » ( I - 1 , 1 ) 


39 

0 XU I G* 1 = ->(1-1,1) 

- «( I , 

r 1 ) 

40 

GC 

TC so 


41 




70 XFICF = RI I , II A3 

dxhigh ^ «u,i> - kii-1,11 aa 

eo XLCW = R l I-l»NSTRW)*CCS( THET 4P I NS7RM, 1 ) ) A5 

DXIOW = Rl l ,NSTRH)*CCS l THE TASINSTRM, l ) > > - XLOW A6 

IF IOXLCW.GE.0.0) GO TC SO A7 

XL C W = XL CW ♦ DXLCW 48 

DXLCW = -CXLOW AS 

90 DX = XHIGF - XLCW 50 

01 L = ALOGIOIDX) 51 

ICIL = OIL 52 

IF (OX.LT.l.O) IOIL = ICIL - 1 53 

RL = OIL - FLOAT! ICIL I 5A 

IF IRL.GE.C. 30103) GC TC ICO 55 

01 = 1.0 56 

GC TC 130 57 

ICO IF (RL.GE. 0.39794) GC TO HO 50 

DI = 2.0 59 

GC TC 130 60 

110 IF (RL.GE. 0.69897) GC TC 120 61 

01 = 2.5 62 

GC TC 130 63 

120 01 = 5.0 64 

130 01 = DI*10.0**f IOIL - 2) 65 

XCUT(l) * XH1GF/0I 66 

ICUT * XCOTfl) 67 

XCtT(l) » CI*f FLOAT! ICUT ) ♦ 1.0) 68 

XN = (XCUTfl) - XLCW) /Cl *1.0 69 

NX = XN 70 

XCUTINC) = XCUTIi) - C I *FLCAT < NX ) 71 

IF (NC.LT.7) GC TO 215 72 

XNI * Nl 73 

FN = 1.0 74 

OXCLT = XCUTII) - XCUT ! NC ) 75 

14C F = DXCUT * ( FN ♦ 0.2)/XNl 76 

IF ( OXHI GF.LT.F ) GC TC 150 77 

FN = FN ♦ 1.0 78 

GC TC 140 79 

150 XT = DXHIGF/OI ♦ 1.0 80 

NT = XT 81 

IF (NT.LE.NX/NI/5) GC TO 170 82 

NF = FN 83 

XCOT(NFM) = XCUTII) - 0 I*FLCAT I NT ) 84 

IT = 1 85 

IF INF.EO.l) GO TC 180 86 

NT I = INT ♦ 1)/NF 87 

160 IT = IT ♦ 1 88 

XCUTIIT) * XCUTIIT-1) - Cl *FLOATI NTI ) 89 

IF ( IT.EO.NF ) GC TC ieO 90 

GC TC 160 91 

17C NT = 0 92 

IT = 0 93 

16C FN = 1.0 94 

19C F = CXCUT * ( FN ♦ 0.21/XM 95 

IF (DXLCW. LT.F) GC TC 2C* 96 

FN = FN ♦ l.C 97 

GC TC 190 98 

2CC XT = DXLCW/L I ♦ 1.0 99 

NF - XT 100 

IF (NH.LF. NX/M/5) GC TO 22 0 101 

NF = FN 102 

NF F = NC - NF 103 


SS 

- 


183 


xct r ( NO ♦ L 1 *U : A I ( NH ) 



XCCTINFH) = 

It- - 1 
IF (KF.FQ.l ) CC TC 2*r 


104 

105 
1 A 6 



NT I r ( j\H ♦ l)/NF 

107 

2 1C 

IF - l H + i 

108 


INF = \C ♦ I - IH 

109 


XCLT ( INF ) - XCUT C 1NH + 1 ) ♦ C l *FLUA T( NT i ) 

110 


I F ( IF.FQ.NF ) CC TC 2 30 

111 


GC TC 210 

112 

215 

NT - 0 

113 


IT ~ 0 

114 

22C 

NF = 0 

115 


I F = 0 

116 

23C 

NX = NX - NT - NH 

117 


NI = NI - IT - IH 

118 

24C 

I I = NX/ N I 

119 


NL = NX - I 1 ♦NI 

120 


JL = IT 4 2 

121 


N = NI ♦ IT 

122 


IC = G 

123 


DC 250 J 3 JL *N 

124 


IC = IC +: II 

125 


IF (J^LT.Jl^NLl IC 3 IC ♦ 1 

126 

25C 

XCUT(J) 3 XCUTUTM) - FtOATUC)*OI 

12T 


NC = NC 4 1 

128 


XCLT(NC) = 88T I PC I ROW ) 

129 


IF C I STN f I ) *GT • 0 ) XCtTCNC) = RBHUB(IROW) 

130 


RETLRN 

131 


END 

132 


SUBROUTINE IP0M(Z,Y, N, AXX, AXY, AYY, AXXXX, AXXYY, AYYYY) 1 

C *** CF INERTIA USING Tt-E SPLINE CURVE AS THE SURFACE BOUNDARY 2 

CCPPfN /°CLT / AC, CCSKL , COSKU, EHTM, IOUT, IT, NP, SINKL, SINKUt 3 

1 CX ( 1 3 ) , EM14), YBP ( 14), YBSI14), ZBPdd, ZBS( 14) 4 

DIPfcNSICN YIN), ZIN) 5 

A X x = O.o 6 

AXY = G.o 7 

A Y Y = O.o 8 

axxxx = o. : 9 

AXXYY = 0.0 10 

AYYYY = 0.: XI 

NI = NP - l 12 

OC >? K- 1 , M 13 

EL - E M I K ) 14 

IF ( IT.EQ.K4l) CC TO 1C 15 

EL - El*( K 4 1 ) 16 

GC T t 2 '' 17 

1C EL = EHT M 18 

2C CXS - nx(K)**2 19 

OXSt = LXSMEL 4 EU ) / 2 .0 20 

Y 4 = YIK) 21 

YP = Y ( K 4 1 ) 22 

YS = YH* 23 

YC = YS*YR 24 

YC = YS* Y S 25 

ES = c L * P L 26 
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EC = 

L s * r L 


ZH - 

Z ( K ) 


ZP - 

Z(K4l ) 


ZS - 

1**7 V 


ZC - 

7 S => Z P 


zc - 

7 r - 4 r r 


AX X 

= > < 4 . ij < ( K ) 4 { 5 ^ * ' 

• *♦ ( ./;> - , . ;* / " ) «• 

1 (2. 

n -* Z M 4 3.0*Z P ) ) > /7 . : 


2 12. 

j) ♦ ec * ( z p * ( z p / 1 : . o 

♦ /“/lC.Ot ♦ / i / 1 ^ 


A X Y = A X V ♦ LX ( K )//4 . *. * { yS* ( !.j*Z M ♦ /V) 4 


3. j* ZS } ► YP*( ZS > / P* 

ib.j 4 + / '>/ 

. 0 ) J ) / * . C 

♦ z p i * y M ♦ 


1 yp«(/ m > 3.^*ZP>> - Y 4.0* r U) ♦ 3.0*ZP* 

2 (EL ♦ f- 1 ; ) ) * Y P * ( ? . : * / v M E L ♦ tU) ♦ ZP*(4.0 *lL ♦ ^ J) I " !") X S / 

3 16 - . ‘J*( ES* ( 35. 0*ZM ♦ M 4 t U* ( 6 2 . 0* Pi. * ( ZM + ZP) 4 cU* <29.0* 

4 Z R + 35.0*ZP)>m 

AY y - AYY ♦ LX(K 1/12. 0*( YC ♦ (VS ♦ (YM 4 YP)*YP)*YP - DXS/39.0 *(< 

1 5.:*YS ♦ (o.G*YM ♦ 4 .0 * YP ) * YP ) *EL ♦ (A.r*YS ♦ i6.G*Y* ♦ 5.0*YP)* 

2 YP)*EU - CX5/84.C*I(35._*ES + (62*0*tL ♦ 29.0*EU)*EU)*YM ♦ (29.0* 

3 ES ♦ (6?.S*EL 4 35 # 0*EU)*EU)*Yp - UXS/6.9*(7#u*EC ♦ (20*0*ES ♦ 

4 (2:.0*EL 4 7.J*Et)*EL)* r: U) ) H 

AXXXX ^ AXXXX 4 CX(K)4(YP*(M(5."*ZP 4 4.0*ZM)*ZP 4 3.0*ZS)*ZP 4 

1 2#7*ZC)*Z° 4 ZQ) > Y**((MZP 4 7.0*ZM>*ZP 4 3.0*ZS>*ZP ♦ 4.0*ZC)* 

2 1 p 4 5.^*7*) - OXS* ( EL* ( 35 . '*Zu 4 ZP*(5?.3*ZC 4 ZP*(54.J*ZS 4 ZP* 

3 (44.0*ZM 4 ?6.G*Z^))>) ♦ 2UM( (( 35. r -*ZP ♦ 52.>*ZM)*?P 4 54.0*ZS)* 

A ZP 4 4A.G*ZC)*Z? 4 2 ! S-0*ZC n/i6B. 01/30. ' 

AXXYY = AXXYY 4 CX(K)MY(XZ°*(ZP 4 4.9*ZM) 4 19.0*ZS) ♦ YP*(YS*( 

1 3._;*7P*(/P 4 ?.j*ZM) ♦ c.>ZS) 4 YP*( YM*( 6.0*ZP*( ZP 4 ZM) 4 3*0* 

2 ZS) 4 vP*(Zo*(ia.3*ZP 4 4.0*ZM> 4 ZSM) - J)X$*<YS*(EL*<ZP*(9._*ZP 

3 ♦ 26.9*ZM) 4 35.0*ZS) 4 E L* ( Z P* ( 9 * J*ZP + PT.J^ZM) 4 25.0*ZS)) 4YP 

4 *(ym*(PLMZP*( 2 ;? .^*ZP 4 36.7*ZM) 4 2fe.')*ZS) + EU* ( ZP* ( 26# 0* Z P 4 

5 * 6#~*Z y ) 4 ?2.J*ZS)> + vP*(FL*(ZP*(25*0*ZP + 22.0*ZM) 4 9.0*ZS) 4 

fc PU*( ZP*( 3 4 26 .:*/M) 4 9.>ZS))) - D X S* < 6 S* ( YM* < ZP* < L 9. y*ZP 

7 ♦ ♦ A2.0*ZS) 4 Y?*l ZP*( 27.0 + ZP 4 3ft.J*ZM> 4 22.0*ZS>) ♦ 

8 EU* ( l L- ( Y* * ( A _ . 0* 7P 4 < ^ p 4- ?.-j*ZM) 4 66. r *ZS) 4 YP* ( ZP * ( 66. 0* ZP ♦ 

9 80 .9*ZY ) 4 AC • 0*Z S ) ) ♦ U * ( YM*(ZP*( 2 2 • 0 * Z p + 38.0*ZM) 4- 2T*0*ZS) + 
. YP*( /p*( a >.9*ZP 4 AA.>'M? + 19.3*ZS))> - DXS*(EC*(ZP*(52.9*ZP ♦ 

1 i:.^.0*ZM) + 4 Mj*( FS*( ZP*( 171. 0*ZP 4 29A.?*ZM) 4 195. J* 

2 ZS) 4 E L * ( E L * ( Z D *( 1 3 t . 0 y z p + 7 9 A . 0 * 7 M ) + 171.j*ZS> 4 EU*(ZP*(77.0 

3 4 7 M ♦ n?.:*ZM) + 52 .;+ 7 S )) M/cj6.0)/ld.2)/?B.^)/90*0 

3C AYYYY - AYYYY 4 i> X ( K ) * (((((( YP + YM)*YP 4 YS)*YP 4 YC)*YP 4 YQ)»YP 
^ 4 YK*YC) - LXSt*(((((5.'*YP 4 6.0*Y v >*YP 4 9.J*YS)*YP 4 8.0*YC)* 

2 YP 4 - LXSE*((((5.J*YP 4 9.i*YM)*YP 4 9.c-*YS)*YP 4 5. .*YC 

3 ) - DXSE* ( ( (5.0*YP 4 .-l..*YM>*YP + 5.0*YS) - UXS£*UYP ♦ YM) - 

A C X 0 2 / 27 . ^ / ? . E ) / 1 . 0 ) / 9 . ) / 1 A . : ) / 39 . 0 

ft E T L » N 


ENC 


27 

28 
79 

30 

31 
3 2 
X3 
3A 
39 

36 

37 

38 

39 
AO 
A 1 
A2 
A3 
AA 
A5 
A6 
A? 
A8 
A9 

50 

51 

52 

53 
5 A 

55 

56 

57 

58 

59 

60 
61 
62 
63 
6A 

65 

66 

67 

68 

69 

70 

71 


C 
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444 T h I 9 'GLTINE C A L C L L 3 T r S Tht HP INtftTIA CORRECTIONS 

*♦♦ ASStCIAT-L The PXP-R TpEATMCNI OP IHh u L a u e end circles* 

SLP^CUT i \<i : \ CS ( ZSfYS f / p *YP , ZC. YCf R ♦ A f ■ .7 Y , AYY , AX XXX, AXXYY , 


X AYYYY) 


c C m * r 

; /ft CC 

l / 

C X ( 1 3 ) , E ^ 

( 1A ) 

OZL - 

- 

/ S 

C 7 L - 

7 1. - 

z ° 

CYC = 

Yl, - 

Y S 

OYL = 

Yt. - 

Y P 


AC, CCSKL, 
, V6P ( 1 A ) , 


C*jS KLI, I UT, IT, NP* SINKL* SINKU, 

YUSI 1A ) , ZMP( 1A ) , ZB $ ( 1A) 


1 

2 
3 
A 

5 

6 
7 
3 
9 

10 


18C 


R C - 7 

YCS = 

Z CS = 

YCC ' 
YCC = 

/ cc = 
zee = 

SINS -- 
CCSi ^ 

S INZKL 


YC*YCS 
YCS*YCS 
7 C * Z C S 
7CS* 7CS 
j I N K L < 
COSKL -i 
= 2 . 0*1 


S I NKU 
CCSKU 
INKl*CCSKl 


SIN2KU = 2.0*SINKU*CCSKU 

SINC •= SIN2KL - SIN2KC 

RT ^ R*( S 1 N2KL - SIN2KUI/16.C 

RC = RS*(SIN2KL*( 1.0 - 2 .0*S I NKL**2 ) - SIN?KU*(1.C - 2.0*SINKU**2 
X ))/43.0 

AXX = (ZCS ♦ RS/4 .0) * A - RC*( 2.0*ZC*COSS/3.0 ♦ RT) - 

1 (DZU*YC/3.0 - ZC*CYU/12.0)*(ZCS ♦ ZS*(ZC ♦ Z S » > ♦ <DZL*YC/3.0 - 

2 ZC*DYL/12.0)*C ZCS ♦ ZPMZC ♦ ZPI> - (0Y0*ZS**3 - DYl*ZP**3 ) /4. 0 
A X Y = ZC*YC*A - RC*((ZC*SINS ♦ YC*C0SS>/3.0 ♦ 

1 R*(SINKI - SINKU)*SINS/“.3) - (DZU*(ZS*(YS*( 3.0*YS ♦ 

2 2.C*YC) ♦ YCS) ♦ ZC*<YS*(YS ♦ 2.0*YC) ♦ 3.0*VCS)) - DZL*(ZP*(VP* 

3 ( 3«0*YP ♦ 2.0*YC) ♦ YCS) ♦ ZC*IYP*(YP ♦ 2.0*YC) ♦ 3.0*YCS) ) )/24.0 
A YY = I YCS ♦ RS/4.0)*A - RC*( 2.0*YC*SINS/3.0 * RT) - 

I (CZU*( YCS ♦ YS**2 )*( YC ♦ YS ) - DZL*(VCS ♦ YP**2)*(YC ♦ VP))/12.3 
A X X X X = (ZCU ♦ RS* ( 1 . £*ZCS ♦ RS/3.0 ) )*A - RC*(ZC*( ( 10.0*ZCS ♦ 4.0* 

1 RS )*COSS ♦ RS*(SIN2Kl*S INKl * SIN2Kli*SINKU) )/7.5 ♦ R*((3.9*ZCS ♦ 

2 RS/3.0) *S I NC - RO/0/1 - ((6.0*YC*0ZU - ZC*OYU)*(ZCQ ♦ ZS*(ZCC ♦ 

3 ZS*(ZCS ♦ ZS*(ZC ♦ ZS))>> - ( 6.C*YC*0ZL - ZC*DYL)*(ZCQ ♦ ZP*!ZCC 

4 ♦ ZP*(ZCS ♦ ZP*(ZC ♦ ZP)))))/30.0 ♦ (DYt*ZP**5 - DYU*ZS**5 > /6.0 
AXXYY = ( ZCS*YCS ♦ RS* ( ZCS ♦ YCS ♦ RS/6.9 ) /4 .0 >*A - RC*( ZC* YC* ( ( ZC 

1 *S INS ♦ YC *CCSS ) / 1. 5 * R*SINS*(SINKL - SINKU)/2.0) ♦ RS*(ZC*( 

2 CCSKL**3 ♦ CCSKU**3 ) ♦ YC*(S!NKL**3 ♦ SINKU**3) )/7.5 - R*((ZCS - 

3 YCS )*SIND - 2 .0*R0 ) / lfc . c ) ♦ (OZL*(ZP*(ZP*( YCC ♦ YP*(3.0*YCS ♦ YP* 

4 <6.0*YC ♦ lC.C*YPm + ZC*(4.0*YCC ♦ YP*(6.C*YCS ♦ YP*(6.0*YC ♦ 

5 4.0*YP) ) ) ) ♦ ZCS* (10 .C* YCC ♦ YP*(6.0*YCS ♦ YP*(3.C*YC ♦ YP)))) - 

6 CZC*( ZS*( ZS*(YCC ♦ Y S* ( 3. 0*YCS ♦ YS*(6.0*YC ♦ 10.0*YS))) ♦ ZC*( 

7 4 . C *YCC ♦ YS*(6.0*YCS ♦ YS*(6.0*YC ♦ 4.0*YS)))) ♦ ZC S*( 10.0*YCC ♦ 

8 YS*(6.0*YCS ♦ YS*(3.C*YC ♦ YS )))))/ 180.0 

AYYYY = (YCC ♦ RS*(l.5*YCS ♦ RS/8.Q))*A - RC*( YC*( ( 10.0*YCS ♦ 4.C* 

1 RS ) *S INS ♦ «S*(SIN2Kl*CCSKL ♦ SI N2KU*C0SKU » )/7.5 - R*U3.0*YCS ♦ 

2 RS/3.0)*SINC ♦ RCI/8.CI ♦ (CZL*(YCO*YC ♦ YP*(YCQ ♦ YP*(YCC ♦ YP*( 

3 YCS ♦ YP*(YC ♦ YP))))) - OZL*(YCQ*YC ♦ YS*(YCQ ♦ YS*(YCC* YS*( 

4 YCS ♦ YS* ( YC ♦ YS))) >>)/30.C 
RETLRN 


sc8*h:utinc 


*** CALCULATION CF TFE 

CCPRCN /RCCT/ AC, CCSKL 
1 C * ( 1 3 ) , £*(14), Y n P ( 14) 

CIPeNSICN t-PS(NPS) 

U = 0.0 
T C R S - 

T * L r A L ^ (7 •■>(!) - Z,; f ( 1 
xal = (Z**P ( 1 ) ♦ ZCS( 1) )/ 

' 7L ^ ( Y«P( ; ) ♦ YrtSt 1 ) ) 7 


THkSN( I TS,KPS, tPS,EHTS,RL£,SSlfSPltSS2,SP2,U,T0RS) 


LACF SECTION TORSION CONSTANT 
, COSKU, eMTM, IOUT, IT, NP, SINKL , SINKU, 
, Y3 S ( 14) , ZHP( 14) , Z8S( 14) 


) ) /( YbS ( t ) - YP, P ( 1 ) ) 







Ti -- V>' T li:^lll - ; RS(i))**2 ♦ (VRS(l) - v^P(l)}**2) 

1 1 


*31 - f s ^ i - so n /< l. o ♦ ss i* sp i > 


1 ? 

* <t * 

I \ T f- f • - A ^ 7 ' N Tift i*ii! f. 1 D J.i. 

SPI. I N r S- nMn^rr 

1 3 


= 1 


l 4 


^ 1 : n * = 2 , np 


L 6 


I c <* •IT) 0 0 rn ;>S 


l 6 


^ M , - [ M |LI 


I 7 


; c ff.p^NP) io, 30, ?c 


I Q 

1 0 

I r (^S.LT.?) * S - ’ 


19 


T “• %0 


2 o 

? c 

K S - ¥ c ¥ 2 


?. 1 


-- T~ ^0 


2 2 

2 5 

t v » = [ M ( K ) 


x?3 

30 

* S = K c ♦ 1 


?4 

40 

x L = 7 P 5 f K S I 


?s 


x l = V v s ) 


2 6 


IP (K .EC.NP) OH Tn ro 


2 7 


TAL p l = IVRP(K> - YRP (K-l H /( 7 ( 3 ( MKI 

- 7RP(K-1 ) ) ^ ( ?.0*F^U ♦ 

2« 

X 

F«(<-1) )*( 7«P( K) - 7«P|K- l ) ) /6. 0 


29 


F*’» = F*S(KS) 


30 


IP (KS.PO 4 .ITS) E^U = fMTS 


31 


T AL PI I = rv«S(KS) - YRS(KS-l))/C7ftS(KSI - 7RS(KS-DI ♦ (2.0*fHj 

32 

X 

♦ FMS(KS-l)l*(7RS( KS J - ?PS(KS-m/6.0 

33 

50 

TLA* * (7PP(xi - XL1 /(yl - VBPIKJI 


34 


TALPA = ( TAL 3 IJ ♦ TALPL 17(1.0 - TAlPU*TALPl * SOPMll.O ♦ TALPJ**2) 

35 

X 

*( l.C ♦ TAL = t **2 1 I 1 


36 


IP (ABSdALPA - TLAM) .LF.O.OOOll 00 

TO 90 

37 


XL = XI ♦ HYPP(K) - Vt)*TALR4 ♦ 7HP(K) - XL>/(1.0 ♦ TALPU*TALPA) 

3ft 


!«= (XL .LF .7RS( KS) > 03 to 60 


39 


<U = K$ ♦ 1 


40 


XL = K 5 


41 


FMi| s FMSIKU) 


42 


I F (KU.E0.ITS ) E M U = E^TS 


43 


sn T ° to 


44 

60 

K) - K S 


45 


KL = KS - 1 


46 


F M, l = FMSCKS) 


47 


IF (KS-FO.ITS) E M t t = E*TS 


4ft 

70 

n; = /PS(KtJ) - 7PS(KL ) 


49 


OKU = 7 P S I K ' ) ) - XL 


50 


Dxi = XL - Ki > 51 

XL = nxL*(Y8S<Kll)/07 ♦ E»1l)*( r >XL**2/D7 - 0/1/5.01 ♦ 9 Xi|* 52 

x (YRS(KL 1/0/ ♦ E M S(KL l*( r 'XU**2/D/ - 0/1/6.01 53 

T AL PH = (YRS(Ktll - V8$(KL» ♦ (E*l)*RXL**2 - FM S ( KL 1 * 9X1 1**2 1 / 56 

X 2.01/0/ ♦ (FRS(KL» - f *1(1*07/6. 0 55 

r ,0 Tn c 0 5 6 

80 SO = (SS2 - 5 P 2 1 / ( 1.0 ♦ SS?*SP21 57 

TALPA = ( SS2 ♦ SP21/I1.0 - SS2*S°2 ♦ SQRTMl.O ♦ SS2**21*(l.O ♦ 58 

X SB 2**21 1 I 59 

on t° ioo 7>o 

90 SO = ( 7 At Pi) - TAtPLl/ll.O ♦ TALP(J*T ALPL 1 61 

IOC XA = ( / RP < K ( ♦ XL 1/2.0 62 

va = (YRP(K 1 » Yl 1/2.0 6 3 

T = SORT t ( 2RP ( K 1 - XL 1**2 ♦ (YL - YRP(K|l**2l 66 

AMO = ( ( ATAM( { TALPAL - YALPA1/U.0 ♦ TALPAL*T ALPAI I 1/2. 01**2 66 

IK = ( SCP T ( ( X A - XAl 1 **2 * (YA - VALl**211/(l .0 - A**',/6.0* < 1.0 - 66 

x AMO/ 2C.0 1 1 67 

l| r II 4 IJX 68 

TOPS = tops ♦ IIK / 140. 0* ( ( 63.C*TL ♦ 2 7 . 0*T 1 *TL **2 ♦ <27.0*Tt ♦ 69 

l 6 1 .0 * 7 1 * T** 2 * i|K / 6. 0* ( ( (97. 0* T L ♦ 70.0*TI*TL ♦ 6 3 .0 *T **2 1 *S OL - 70 

? <( 63.01 ♦ 70 .0* T 1* TL ♦ 9 7. 0* T**2 1 * SO ♦ (IK* ( ( ( 16 . 0*TL ♦ 8.0*T1* 71 
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3 sri - 1 3 . ? * ( T L ♦ r)*SL'»*S';L ♦ <8.0*TL ♦ 1 6 ♦ 0* T 1 *SD**2 ♦ UK* 72 

4 (((SUL - S D 1 * 5 C L ♦ Si: ♦♦.’)*( SDL - SIJ)>))> 78 

XAL = XA 

YAL = YA 7S 

TAU-AL - TAI.PA 7 6 

TL - T 77 

lie SCL = SC 78 

C *♦♦ FNU CIRCLE INTEGRATIONS FOR T**3*DU 79 

SIN2A = S I KKU*CCSKL - SRKL*CCSKU 80 

CCS 2 A - CCSKU*CUSKL ♦ SINKL*SINKU a\ 

UK - «t_h * C l .0 - SIN2A/SCRTI2.0*! 1.0 ♦ C0S2 A ) ) ) 82 

U = U + UK 53 

Teas = TORS ♦ «LE** 4 * (< 3 . 141592 / - ARS l N( S l N 2A 1 I * 3. C - SIN2A*(4.0 84 

X ♦ CCS2A I 1/3.0 35 

ICC T = 1 86 

CALI EDGES(ZBS(NPS1, Y 8 S < NPS I , SS2, ZBP! NP I , YBP ( NP 1 , SP2 , UK, UK , UK ,RTE , 8 7 

X UK, UK) 88 

SIN2A = S I NKL*CCSKU - SlNKU*COSKl 89 

CCS2A = CGSKU*COSKL ♦ SINKL*SINKU 90 

UK * RT6*(l.O - SIN2A/SQRT(2.0*( 1.0 ♦ COS2AIH 91 

U = U ♦ UK 92 

TCRS = TORS ♦ RTE**4*( < 3.1415927 - ARSIN! SIN2AI 1*3.0 - SIN2A*(4.0 93 

X ♦ CCS2A) 1/8.0 94 

RETURN 95 

END 96 


SUBROUTINE BCCGRD U S ,NC ,XCUT , YLE , ZIE, YTE, ZTE 1 l 

C **• PRINTOUT OF UNROTATEC CCCRC1NATES NITH HUB STACKING POINT REE. 2 

REAL INC, KIS, KM, KTS , MACH 3 

CCMMCN /VECTOR/ <, 

1 BE T AS 1 1 , 21 1 , BMATl III* etAOESUl, CHOKE! 1), CHOROAIl), CHORDS! 1 1 , 5 

2 CHCRDCU), CPCO (61* CEV!I,21), IDEVll), I GEO! 1 1 , IINC(1I, 6 

3 I L L SS ! 1 1 , I MAX ! 11, INCH, 211, ISTN<2), ITRANS(l), NORTH!, 7 

4 NXCUT(1», PH 1 1 1 , 2 1 ) , PO (2 ,21 1 , R!2,211, RBHU8! 1 1 , RBTIP!1?, 8 

5 SLOPE <2,21 1 , SCLI Dill, TALE <11, TAMAXI11, TATE 1 1 1 , TBLEI11, 9 

6 TI3M AX ! 1 1 , TUT E < 1 1 » TCLEI11, TCNAXIll, TCTElll, TDLEC11, TONAXll) , 10 

7 TOTE! 1 1 , TILT(l), TC!2,?11, TRANS! 1,211, VTH!2,21I, VZ < 2 ,2 1 > , 11 

8 2(2,211. 2 8HUH (11, ZBTl P< 1 > , ZMAX(1,21) 12 

CCMMCN /SCALAR/ 13 

1 HE ! A, CP, CPH2, CPH3, C PH4 , CPH5, CPH6, CPP3, CPP4, CPP5, CPP6, 14 

2 CPI, CV, CCP, DF, OHC , CHC I , OLOSC, G, GANNA, GJ, GJ2 , GR1 , GR2 , 15 

3 GR 3 , GR4, GR 5 , H, I, ICLNV, ICOUNT, 1 ERROR, dN, IPR, IROTOR, IR, 16 

4 IRCW, ITER, IM, J, JM, MACH, NAB, NBROWS, NHUB*NROTOR »N$TN*NSTRM, 17 

5 NTIP, NTUPtS, CMEGA, PI, P0A1, PR, RADIAN, RF, RG, ROT, TL , T0A1 , TU 18 

CCmmcn /9LA0ES/ OUM(35>, ICL, 0UMN(44> 19 

CCM*CN /OTS/ FSB ( l 3 1 20 

CCMMP'j /L A H 2 L / T I TLE ( 1 8 1 21 

I) I Mi. NS ILN XCUT ( 251 , YCP! 14,31, YCS(14,3>, YLE (251, YTE(251, 22 

1 7C(2B,31, ZLt ( 25 ) , ZTE(251 23 

F CU l VAL r NCF ( JL , ICL 1 24 

J = » 25 

Jl ; ’ 26 

I p l 27 

1C i 28 

I* II I I p . M' . 1 GC T t 3 •/ 29 

W“Ii (TITl’II ) ) , I J = 1 » l 8 1 30 


188 



30 DC AO K=1 ,13 31 

CALL INTERIM XCUT ( J) , 1 ,K , YCSTK, IC ) ,ZC (K, I C > I 32 

AO CALL INTERP(XUJT(J),2,K,yC3(K, I C > , Z C < K+ 1 A, [f.H 3 3 

IF ( IC.NE. 3) GC TC 8C 3A 

J$ = J - 2 35 

JF = J 36 

WRITE (IW, 20201 (J»XCLT ( J) ,J s JS*JF ) 37 

fcC DC 70 K= 1 , 1 3 *8 

70 WRITE ( IW , 2u 30 I FSPTK), (ZCTK.IJ), YCSTK, IJ», ZC(K+1A,IJ), 39 

1 YCP(K,IJ) ,1 J=l,lC> AO 

WRITE (IW,?,AO> (ZLE ( J ) , VL E ( J ) *J=JS*JF ) A1 

WRITE <IW f ?05b) (ZTE(J»,YT6(J),J=JS,JF) A2 

IC 1 0 A3 

IP = IP ♦ 1 AA 

IF ( IP.GT «2> IP = l A5 

80 IF TJ.EC.NC) GC TC ICC A6 

IC = IC ♦ 1 A 7 

J = J ♦ 1 A8 

IF ( IC.EQ.l) GC TC 10 A9 

GC TC 3C 50 

ICC IF (IC.F.C.C) RETURN 51 

JF = NC 52 

IF ( IC.NE. 2) GC TC 110 53 

JS r J - l 5A 

WRIIE TIW.2015) JS, XCUTTJSI, NC, XCUT(NC) 55 

GC TC 60 56 

11C WRITE ( I W , 2C IC T NC, XCLT(NC) 57 

JS = JF 58 

GC TC 60 59 

20CC FCRPAT ( 1H1 /// 1X,58F** BLADE SECTION COORDINATES IN TURBOMACHINE 60 

l CRIENTATICN - ,18AA ) 61 

2010 FCRVAT <// AX.6HFRACT., AX , 7HSEC T I ON , I 3, 1 2H FOR XCUT 0F,F8.A, 62 

1 AH IN. , 2X / 5X,2HOF, 6X, 15HSUCT ION SURFACE , AX, 16HPRESSURE SU 63 

2RFACE / AX, 5HSURF . , 7X,1FZ,8X, IHY ,9X, 1HZ ,8X, 1HY,AX / IAX, 6A 

3 5F< lN.),AX,5h(lN.),5X,5F( I N . ) , AX , 5HU N . > // ) 65 

2015 FCRFAT <// AX,6HFRACT.,2TAX,7HSECTI0N,I3,12H FUR XCUT 0F,F8.A, 66 

l Ah IN..2X) / 5X, 2H0F »1X,2(5X,15H SUCTION SURFACE , AX, 16HPRESSURE SU 67 

2RFACiI) I AX.5HSURF,, 2 ( 7X,1HZ »8X, IHY ,9X,1HZ,8X,1HY,AX> / 7X,2(7X, 68 

3 5h( IN. ),AX,5HI IN. »,5X,5F< IN.),AX,5H( IN. I » // ) 69 

2C2C FCRhAT (// AX,6HFRACT.,3(AX,7HSECTION,I3,12H FOR XCUT 0F.F8.A, 70 

1 AH iN.,2X> / 5X»2HOF, 1X,3(5X, 15HSUCT ION SURFACE , AX, 16HPRESSURE SU 71 

2RFACEI / AX , 5HSURF . , 3( 7X, IHZ, 8X, IHY, 9X,1 HZ, 8X, IHY, AX) / 7X,3(7X, 72 

3 5H( IN. » , AX, SHUN. ), 5X,5F( IN.) ,AX,5H< IN. » ) // ) 73 

2C3C FCRhAT (AX,FA.2,2X,3< ?F9.A,1X,2F0,A,3X) ) 7A 

20 AC FCR y AT I/AX.18HL.E. CIRCLE CENTER , 7X, 2F9. A, 2C 22X , 2F9. Al) 75 

2C5C FCRFAT ( '■ * » 1 RHT . E . CIRCLE CE NTER, 7X , 2F9.A, 2 < 22X , 2F9. A >> 76 

EM.' 77 
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APPENDIX J 


MICROFILM SUBROUTINES FROM LEWIS LIBRARY 

The following NASA Lewis Library subroutines - LRMRGN, LRSIZE, LRGRID, 

L RANGE, LRCURV, LREON, LRCPLT, LRCHSZ, LRLEGN, LRION, LRIOFF, 

LRCNVT - are called in program subroutine BLUEPT to produce tabb s of blade-section 
coordinates that can be attached to blueprint drawings. These systems routines are a 
part of a microfilm plotting package called CINEMATIC, which is described in refer- 
ence 8. The following descriptions of the subroutines are condensed from those given in 
the reference. 


Subroutine LRMRGN 

Purp ose. - LRMRGN is used to change the width of plot margins. 

Us , ' C.uLL LRMRGN (XLEFT, XRIGHT, YBOTM, YTOP). XLEFT (floating 
point) is the left margin width in absolute positioning units XRICHT (floating point) is 
the right margin width in absolute positioning units. YBOTM (floating point) is the lower 
margin width in absolute positioning units. YTOP (floating point) is the upper margin 
width in absolute positioning units. 

Method . - A frame of film contains 10 absolute positioning units in the horizontal 
direction and 10 in the vertical direction. CINEMATIC sets margins around the plotting 
area as follows: LEFT and BOTTOM, 1. 0 absolute positioning unit; RIGHT and TOP, 

0. 4 of an absolute positioning unit. A call to LRMRGN before LRCURV will change the 
width o'. the margins. 


subroutine LRSIZE 

Purpose . - LRSIZE is used to change the size of a plot. 

Usage . - CALL LRGIZE (XLEFT, XRIGHT, YBOTM, YTOP) XLEFT is the left 
end point of a plot in absolute positioning units. XRIGHT is the right end point of a plot 
in absolute positioning units. YBOTM is the lower end point of a plot in absolute posi- 
tioning units. YTOP is the upper end point of a plot i.; absolute positioning units. 

Method . - CINEMATIC uses one frame of film as the size of a plot (including mar- 
gins). A call to LRSIZE before a curve-plotting routine will change the size of the plot. 
Plot size may be expanded in the X (horizontal) direction to be several frames wide. 

Restrictions . - LRSIZE must be called before the plotting routine it applies to. The 


settings of LRSI2E remain in effect urf’l cha\ r .d by another call to LRSIZE 
L.FSIZE'^ 0, 10. 0, 0.0, 10.0) will set the :-ize Lack to one fram - ‘'Urn. 


n 


ALL 


Subroutine LRGRID 

Purpose . - LRGRLD is used to specify grid-line changes. 

Usage. - CALL LRGRID (IXCODE, IYCODE, DX, DY). IXCODE (fixed point) is a 
switch which applies to vertical grid lines and is used as follows: 

IXCODE=0 means return to using CINEMATIC’s built-in grid format (11 grid lines). 

IXCODE=±l means DX specifies how many grid lines; IXCODE=-l suppresses grid 
labels. 

IXCODE=±2 means DX specifies grid intervals; KCODE=-2 suppresses grid labels 

IXCODE=±3 means DX specifies how many ’’tick marks” instead of grid lines; 
IXCODE=-3 suppresses grid labels. 

£XCODE=±4 means DX specifies the interval between "tick marks"; IXCODE=-4 
suppresses grid labels. 

DX (floating point) specifies grid-line or ’’tick mark” frequency or intervals, depending 
on how IXCODE is set. IYCODE (fixed point) is the same as IXCODE, but it applies to 
horizontal grid lines. DY (floating point) is the same as DX but for horizontal grid lines. 

Method . - CINEMATIC puts 11 horizontal and 11 vertical grid lines on every plot, 
unless LRGRID is called. When a grid-line frequency is specified, CINEMATIC sets the 
interval between the specified number of grid lines to be equal to Zxl0 n , where Z = 

1-0, 0 2. 5, or 5.0 and n depends on the magnitude of the user’s data. To get these 

intervals, CINEMATIC will adjust the end points of the plot, if necessary. 


Subroutine LRANGE 

Purpose . - LRANGE is used to set the range of (X, Y) curve points. 

Usage. - CALL LRANGE (XLEFT, XRIGHT, YBOTM, YTOP). XLEFT is the left 
end point of a plot in the user’s units. XRIGHT is the right end point of a plot in the 
user’s units. YBOTM is the lower end point of a plot in the user’s units. YTOP is the 
upper end point of a plot in the user’s units. 

Method. - The curve-plotting subroutine LRCURV searches the (X, Y) coordinates 
for maximuws and minim urns and scales the rest of the user’s points to fit between them. 
A call to LRANGE before LRCURV suppresses the search. The settings of LRANGE re- 
main in effect for all successive plots until changed by another call to LRANGE. 
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Subroutine LRCURV 


Purpose. - LRCURV is used to plot one curve of a multiple-curve plot. 

Usage. - CALL LRCURV (X, Y, N, ITYPE, SYMBOL, EOP). X (floating point) is an 
array of X-coordinates for the curve. Y (floating point) is an array of Y-coordinates for 
the curve. N (fixed point) is the number of (X, Y) points to be plotted. ITYPE is a 
switch that indicates the type of plot desired: 

ITYPE— 1 specifies a dot plot; each (X, Y) point is represented by a dot. 

ITYPE=2 specifies a vector plot; successive (X, Y) points are joined by straight 
lines. 

ITYPE=3 specifies a symbol plot; each (X, Y) point is represented by a symbol. The 
FORTRAN character in SYMBOL specifies the symbol used. 

ITYPE=4 specifies a special symbol plot; each (X, Y) point is represented by a 
special symbol taken from a SPECIAL CHARACTER TABLE. 

SYMBOL specifies the plotting symbol when ITYPE=3 or 4. EOP is a switch that indi- 
cates when the last subroutine call for a given plot is being made: 

EOP=0. 0 means the current plot is not yet complete. More subroutine calls for this 
plot will follow. 

EOP=l. 0 means the current plot is complete. No more printing or plotting sub- 
routines will be called for this plot. 

Method. - LRCURV provides greater flexibility in drawing curves. LRCURV is 
useful for the plotting situation in which not all (X, Y) points for a plot are in the com- 
puter memory at the same time. Several calls to LRCURV may be made for the same 
plot. 

The X and Y arrays are in whatever units the user is working with. LRCURV scales 
his data range to fit the size of the plot on film. The user should call LRANGE before 
LRCURV to supply the range of his data points to CINEMATIC. If the user does not call 
LRANGE, LRCURV will take the user's data range from the first call to LRCURV for 
any given plot. 

LRCURV does not destroy the contents of X, Y, N, ITYPE, SYMBOL, or EOP dur- 
ing plotting. 


Subroutine LREON 

LREON is used to expand a frame in all directions so that the edges of adjacent 
frames touch. 
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Subroutine LRCPLT 


Purpose . - LRCPLT is used to specify a multiple-curve plot. 

Usage . - CALL LRCPLT (X, Y, KKK). X (floating point) is an array of X- 
coordinates for ali the curves. Y (floating point) is an array of Y-coordinates for all 
the curves. KKK (fixed point) is an array at least six words long. It is used as follows: 
KKK(l) is a switch that indicates whether CINEMATIC should duplicate any of the co- 
ordinaL s in the X or Y arrays: 

KKK(1)=1 means duplicate X -coordinates. 

KKK(1)=2 means duplicate Y-coordii. 

KKK(1)=3 means no duplication. 

KKK(2) indicates the type of plot desired: 

KKK(2)=0 means that all successive points on a curve are connected by straight lines 
(a vector plot). 

KKK(2)=N specifies a vector plot with a plotting symbol placed at every Nth point. 
KKK(5) indicates the symbol. 

KKK(2)--N means that every Nth point is represented by a plotting symbol. KKK(5) 
indicates the symbol. 

KKK(2)=999 means that several curves with different KKK(2) numbers are being 
plotted. Let KN be the number of such curves. Then the KKK(2) number for 
each curve is supplied in KKK(KN+6) through KKK(2KN+5) 

KKK(3) is the number of curves to be plotted. 

KKK(4) is a switch that indicates whether a call to LRLABL will follow this call to 
LRCPLT LRLABL labels a curve point. 

KKK(4)=0 means no call to LRLABL will follow (moves to next frame). 

KKK(4)=1 means a call to LRLABL will follow (holds a frame). 

Whenever symbols are plotted, KKK(5) equals the number of the symbol used to plot the 
first curve. Symbols for successive curves are chosen in order. 

KKK(6) gives the number of points in each curve when KKK(1) eq uals 1 or 2. KKK(6) 
gives the number of points in the first curve when KKK(1) equals 3. The number of 
points for successive curves appear in KKK(7) through KKK(KN+5), where KN is the 
number of curves being plotted. 

Duplication of coordinates: When the set of X-coordinates for all die curves is the 
same, it may appear only once in the X array. KKK(1)=1 indicates this arrangem en t of 
the user's data. LRCPLT will use the one set of X’s for all the curves to be plotted. 

The Y-coordinates for all the curves must appear in die Y array. LRCPLT does iiot 
destroy the contents of X and Y during plott ing 

Grid: Ten grid intervals are specified in each direction. Grid intervals are equal 
to ZxlO where Z = 1, 2, 2. 5, or 5 and n depends on the range of the user's data. 


LRCPLT will adjust the range of the user's data to ,-rt 10 equal intervals of Zxi() n . T’se 
LRGRID to change the grid. 

Margins: A margin of 0 10 frame is allowed at the left and bottom, 0.04 frame at 
the right and top. These margins allow enough space for a title and legends, which are 
printed by LRTLEG, LRXLEG, AND LRYLEG. Use LRMRGN to change margins. 

Plot size: The size of the entire plot is one frame of film. If needed, the size may 
be expanded to several continuous frames of film by a call to LRSIZE. With the pre- 
viously described margins, the user’s data range is scaled to a coordinate system of 
981 x 981 distinct points. 


Subroutine LRCHSZ 

Purpose . - LRCHSZ is used to change the size of printed characters. 

Us^e . - CALL LRCHSZ (ISIZE), where 1SIZE (fixed point) gives the size: 
ISIZE=0 means let CINEMATIC resume selecting l Jie size. 

ISIZE=1 means miniature characters. 

ISIZE=2 means small characters. 

ISIZE=3 means medium characters. 

ISIZE =4 means large characters. 

Method . - LRCHSZ changes the character size for all character printing that fol- 
lows. The specified size remains in effect until changed by another call to LRCHSZ. 
Large: 43 characters per line, 22 lines per frame. 

Medium: 64 characters per line, 32 lines per frame. 

Small: 86 characters per line, 43 lines per frame. 

Miniature: 128 characters per line, 64 lines per frame. 


Subroutine LRLEGN 

Purpose . - LRLEGN is used to print a legend anywhere on a plot. 

Usage . - CALI, LRLEGN (CHARS, N, IORIEN, XY, EOP). CHARS is an array of 
characters to be printed. N (fixed point) is the number of characters to be printed. 
IORIEN (fixed point) is a switch: 

IORIEN=0 causes horizontal printing. 

IORIEN=l causes vertical printing. 

X (floating point) is the X-coordinate of the starting point in absolute positioning units. 
Y (floating point) is the Y-ccordinate of the startirg point in absolute positioning units. 
EOP (floating point) is a switch: 
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EOP=0 indicates the current plot is not yet complete. 

EOP=l indicates the current plot is complete. No more calls to plotting or printing 
subroutines for this plot will occur. 

Method. - The user expresses the (X, Y) starting point of a line of printing in ab- 
solute positioning units. LRLEGN prints medium-size characters. The user may also 
get other character sizes, italics, lower case, and special symbols. 


Subroutines LRION and LRIOFF 


Purpose. - These subroutines italicize printed characters. 

Usage. - CALL LRION causes all printed characters that follow to be italicized. 
CALL LRIOFF turns off the italicized mode of printii^. 


Subroutine LRCNVT 

P urpose . - LRCNVT converts a fixed- or floating-point number into printable char- 

oCvcTSe 

Usage. - CALL LRCNVT (X, ITYPE, CHARS, IFORM, N, M>. X is the number to 
be converted. ITYPE specifies X: 

ITYPE=l means X is fixed point. 

I TYPE =2 means X is INTEGER*2 
ITYPE=3 means X is floating point. 

CHARS is the array to receive printable characters. CHARS must be dimensioned large 
enough to hold the N characters requested. IFORM is a switch that describes the for- 
mat of the characters: 

IFORM- 1 means convert to FORTRAN "P* format. 

IFORM=2 means convert to FORTRAN "Z" format 
IFORM=3 means convert to FORTRAN "F" format. 

IFORftfe4 means convert to FORTRAN ’’E” format. 

N is the total number of characters desired. M is the number of characters to the right 
of the decimal point. M=0 for "I" or "Z” format. 
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TABLE I. - VALUES OF i WHICH MAKE tanh 



- 1.5954 - 51.92 -.6268 - 32.08 

- 1.0000 - 45.00 - 1.0000 - 45.00 
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Figure 2. - Blade-element centerline nomenclature. 
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tb> Relation between blade -element and blade-section 
axial shifts in meridional plane. 



ic> Blade-element center-of-a rea chontoise and normal coordintfe compo- 
nent adjustments. 

Figure 6. - Stacking adjustment components between center of area and 
stacking point. 
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Figure 7. - Moments in meridional plane. 



Figure 8. - Call sequence of computer program subroutines. 



Figure 9. - CoordinMe system tor Made-section output data. 
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ftqure 18. - Blade- sect ion geometn* paranp ters 
for torsion constant integration 



fl 9 urt N ' Parameters lor Mark-section thickness definition. 




F^ure 21 - End-circle geometry for torsion constant 









